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1.0 GENERAL INFORMATION 
occessoss - swecesese SEQ 0002 


1.1 PROGRAM ABSTRACT 


THIS DIAGNOSTIC OCCUPIES 14. 5K WORDS OF MEMORY AND IS COMPATIBLE WITH 

BOTH XXOP AND ACT. IT CAN BE RUN STANDALONE UNDER XXDP. AND CAN BE CHAINED 
UNDER XXDP, ACT AND APT IN ACT MODE (SEE "CREATE CORE IMAGE” COMMAND 

BELOW FOR DETAILS OF CHAINING PROCEDURE). IT IS A SINGLE PROGRAM 

FROM THE STANDPOINT OF THE DIAGNOSTIC USER. BUT WE HAVE INCORPORATED INTO 
1T A CONTROL MODULE WHICH WILL LATER BE RELEASED INDEPENDENTLY AS A 
DIAGNOSTIC SUPERVISOR. 


WHEN THIS DIAGNOSTIC IS STARTED AT ADDRESS 200. CONTROL GOES 

FIRST TO THE SUPERVISOR PORTION, WHICH WILL ASK CERTAIN “HARD CORE” 
QUESTIONS ABOUT THE ENVIRONMENT. THEN IT WILL ENTER COMMAND 

MODE, INDICATED BY A PROMPT CHARACTER (DS A>). AT COMMAND MODE THE OPERATOR 
MAY ENTER ANY OF SEVERAL COMMANDS AS DESCRIBED BELOW. 


THE SUPERVISOR CODING FOLLOWS IMMEDIATELY THE DIAGNOSTIC TEST CODING, 
BUT THE SUPERVISOR LISTING HAS BEEN SUPPRESSED FOR GENERAL DISTRIBUTION 
A LIMITED DISTRIBUTION HAS BEEN MADE TO FIELD SERVICE OF THE SUPERVISOR 
ASSEMBLY LISTING. AND IT MAY BE CONSULTED IN EVENT OF A SOFTWARE PROBLEM 


1.1.2 DIAGNOSTIC INFORMATION 


THIS PROGRAM TESTS AND EXERCISES RLO1 DISK ORIVES RLII/RLVI1 
CONTROLLERS (4 DRIVES PER CONTROLLER). THE ENTIRE PROGRAM 

1S RUN ON THE FIRST ORIVE BEFORE STARTING ON THE 

SECOND. THE PROGRAM STARTS BY TESTING THE SIMPLEST FUNCTIONS 
FIRST USING THE LOGIC TESTED IN EARLIER TESTS TO TEST MORE 
COMPLEX FUNCTIONS. 


THIS PROGRAM FIRST TESTS THE RLO1 INTERFACE AND BASIC DRIVE 
LOGIC. 1T THEN BEGINS TESTING THE SEEK OPERATIONS USING 
SINGLE DIFFERENCES, PROCEEDING INTO SEEKS OF GREATER 
DIFFERENCES. SEEK TIMING IS DONE AFTER THE SEEK LOGIC HAS 
BEEN TESTED. 


DATA TRANSFERS ARE DONE AFTER ALL THE SEEK TESTS. THE FIRST 
DATA TRANSFER IS REANING OF THE BAD SECTOR FILES WHICH ARE 
STORED AND USED LATER TO PREVENT TESTING ON BAD SECTORS 
FOLLOWING DATA READ AND WRITE TESTING. THE PROGRAM TESTS FOR 
OVERWRITE PROBLEMS AND ADJACENT CYLINDER INTERFERENCE. 


SEEK TIMING, ROTATIONAL TIMING, AND WRITE LOCK DATA PROTECTION 
ARE DONE IF MANUAL INTERVENTION 1S REQUESTED. 


1.2 SYSTEM REQUIREMENTS 


POP-11/LSI-11 PROCESSOR WITH 16K OR MORE OF CORE 
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CONSOLE DEVICE (LA30,LA36, VTSO_ETC. ) 
RL1IZRLV1I1 CONTROLLER(S) 

1 - 8 RLO1 ORIVES 

1 - 8 RLOIK CARTRIDGES WITH BAD SECTOR FILE 
KW11P, KWI1L (OPTIONAL) 
LINEPR INTER (OPTIONAL ) 


2 SOFTWARE REQUIREMENTS 


MAINDEC-11-DZRLD-A 


RELATED DOCUMENTS AND STANDARDS 


RLO1 USERS mae (EK-RLO1-UG-PRE) 
XXDP USERS MANUA 
DIAGNOSTIC SUPERVISOR PROGRAM LISTING 


DIAGNOSTIC HIERARCHY PREREQUISITES 


THE RLO1 SUBSYSTEM SHOULD HAVE SUCCESSFULLY RUN THE FOLLOWING 


PROGRANS: 

MD-11-DZRLA RL11/7RLV11 RLO1 CONTROLLER TEST (PART 1) 
MD-11-DZRLB RL1i/RLV11 RLO1 CONTROLLER TEST (PART 2) 
MD-11-DVRLA RLV11 RLO1 DISKLESS TEST (RLV11 ONLY) 
MD-11-OZRLC RLO1 DRIVE TEST (PART 1) 


ASSUMP TIONS 


THE HARDWARE OTHER THAN THE RLO1 SUBSYSTEM IS ASSUMED TO WORK 
PROPERLY. FALSE ERRORS MAY BE REPORTED IF THE PROCESSOR, ETC., 
DO NOT FUNCTION PROPERLY. 


OPERATING INSTRUCTIONS 


FOLLOW SiANDARD DEC PROCEDURES TO LOAD THE PROGRAM. (XxXDP, 
ABSOLUTE LOADER. UPD1. UPD2) 


. 2 STARTING PROCEDURES 


THE PROGRAM STARTS AT LOCATION 200. USE STANDARD DEC PROCEDURES 
TO START THE PROGRAN. 


SEQ 0003 


2.1.3 STEPS FOR QUICK AND SIMPLE EXECUTION 


THE DIAGNOSTIC CAN BE EXECUTED STANDALONE WITHOUT READING THE REMAINDER OF THIS 


DOCUMENT AS FOLLOWS: 


A) LOAD THE DIAGNOSTIC 

B) START AT ADDRESS 200 

C) ANSWER THE HARDCORE QUESTIONS 

D) RECEIVE PROMPT (OS A>) 

E) ENTER STACCR> 

F) ANSWER HARDWARE AND SOFTWARE QUESTIONS 

G) GET END OF PASS MESSAGES OR ERROR MESSAGES 
H) TO END EXECUTION. ENTER CONTROL/C 


2.2 SPECIAL ENVIRONMENTS 


THE ENVIRONMENTS THIS PROGRAM WILL RUN IN ARE XXDP, XXDP CHAIN, 
ACT, SLIDE AND APT. 


2.3 PROGRAM OPTICNS 


KXKKAAAAAA AAA AAA AA AAA AAA AAA AAA AAA AAA AAA AAA AA AAA AAA AAA AAA AAA AKA EE 
STACRT)/TESTS: <TEST-LIST>/PASS: <PASS-CNT>/FLAGS: <FLAG-L1ST>/EOP: <INCR> 
KXKKAAAAAAAAAA AAA AAA AAA AA AAA AA AAA AA AAA AAA AAA AAA AA AAA AAA AERA EAA 


2.3.1.1 TESTS SWITCH (/TESTS: <TEST-LIST>) 


<TEST-LIST> 1S A SEQUENCE OF DECIMAL NUMBERS (1:2 ETC.) OR RANGES 

OF DECIMAL NUMBERS (1-5: 8-10 ETC. ) SEPARATED BY COLONS. SPECIFYING 
WHICH TESTS IT 1S DESIRED BE EXECUTED. THE TEST NUMBERS RANGE FROM... 
1 TO THE LARGEST TEST NUMBER IN THE DIAGNOSTIC. THEY MAY BE SPECIFIED 
IN ANY ORDER. TESTS WILL BE EXECUTED IN NUMERICAL ORDER REGARDLESS 

OF ORDER OF SPECIFICATION. THE DEFAULT iS TO EXECUTE ALL TESTS. ON 


THIS AND ALL SWITCHES. THE ANGLE BRACKETS <> ARE PUNCTUATION USED IN THE 


DEFINITION ONLY. AND ARE NOT TO BE TYPED BY THE OPERATOR. SEE EXAMPLE 
AT END OF 2. 3.1. 


2.3.1.2 PASS SWITCH (/PASS: <PASS-CNT>) 
<PASS-CNT> 1S A DECIMAL NUMBER INDICATING THE DESIRED NUMBER OF PASSES 


A PASS IS DEFINED AS THE EXECUTION OF THE FULL DIAGNOSTIC (ALL SELECTED TESTS) 


AGAINST ALL UNITS SUBMITTED. THE DEFAULT 1S NON-ENDING EXECUTION: IE, 
EXIT 1S ACCOMPLISHED EITHER BY TYPING A CONTROL/C OR BY A HALT ON ERROR 


BEING ENCOUNTERED, IN WHICH CASE WE RETURN TO COMMAND MODE. SEE EXAMPLE 


AT END OF 2. 3.1. 
2.3.1.3 FLAGS SWITCH (/FLAGS: <FLAG-LIST>) 
<FLAG-LIST> 1S A SEQUENCE OF ELEMENTS OF THE FORM <FLAG>. <FLAG=1>. 


OR <FLAG=0>, SEPARATED BY COLONS, WHERE <FLAG> HAS ONE OF 
THE FOLLOWING VALUES: 


SEQ 0004 


2 1.9 


22.1.9 


Fon 


HOE HALT ON ERROR, CAUSING COMMAND MODE TO BE ENTERED WHEN AN 
ERROR |S ENCOUNTERED 

LOE LOOP ON ERROR, CAUSING THE DIAGNOSTIC TO LOOP CONTINUOUSLY 
WITHIN THE SMALLEST DEFINED BLOCK OF CODING (SEGNENT,. 
SUBTEST. OR TEST) CONTAINING THE ERROR 


1ER INHIBIT ERROR REPORTING 

1BE INHIBIT BASIC ERROR REPORTS 

XE INHIBIT EXTENDED ERROR REPORTS 

PRI DIRECT ALL MESSAGES TO A LINE PRINTER 


PNT PRINT NUMBER OF TEST BEING EXECUTED 

BOE BELL ON ERROR 

UAM RUN IN UNATTENDED MODE. BYPASSING MANUAL INTERVENTION TESTS 
ISR INHIBIT STATISTICAL REPORTS 

1DR INHIBIT DROPPING OF UNITS BY DIAGNOSTIC 


THE FLAGS NAMED OR EQUATED TO 1 ARE SET. THOSE EQUATED TO 0 
ARE CLEARED. A FLAG NOT SPECIFIED IS CLEARED. IF THE FLAGS SWITCH 
1S NOT GIVEN ALL FLAGS ARE CLEARED. SEE EXAMPLE AT END OF 2. 3.1. 


END OF PASS SWITCH (/EOP: <INCR>) 


<INCR> 1S A DECIMAL NUMBER INDICATING HOW OFTEN (IN TERMS OF PASSES) 
1T 1S DESIRED THAT THE END OF PASS MESSAGE BE PRINTED. THE DEFAULT IS 
AT THE END OF EVERY PASS. SEE EXAMPLE AT END OF 2. 3.1. 


EFFECT OF COMMAND 


THE EFFECT OF THE START COMMAND IS TO INITIATE THE HARDWARE PARAMETER 
DIALOGUE, THE SOFTWHRE PARAMETER DIALOGUE. AND THEN THE DIAGNOSTIC 
TESTS THEMSELVES. 


THE HARDWARE PARAMETER OIALOGUE COMMENCES WITH THE QUESTION 

"gS UNITS?" TO WHICH THE OPERATOR REPLIES WITH A DECIMAL 

NUMBER N FROM 1 TO 64. THE TERM “UNIT” REFERS TO THE DEVICE 

TO WHICH THIS SERIES OF DIAGNOSTICS IS DEDICATED. FOLLOWING THIS ARE 
THE QUESTIONS WHEREBY THE P-TABLES THEMSELVES WILL BE BUILT. EACH 
P-TABLE 1S A CORE-RESIDENT TABLE CONTAINING 

ALL THE HARDWARE INFORMATION FOR ONE UNIT. THE OPERATOR MUST SUPPLY 
N (NUMBER OF UNITS) VALUES FOR EACH QUESTION. HE MAY 

DO THIS BY GIVING ONE ANSWER TO EACH QUESTION (IN WHICH CASE THE 
SERIES OF QUESTIONS WILL BE POSED N TIMES) OR BY GIVING N VALUES, 
SEPARATED BY COMMAS. TO EACH QUESTION (SERIES WILL BE POSED ONCE) 
EACH QUESTION IS FOLLOWED BY THE RESPONSE RADIX (D FOR DECIMAL. B 

FOR BINARY. O FOR OCTAL. L FOR YES/NO) IN PARENTHESES AND THE DEFAULT 
VALUE AFTER THE PARENTHESES. 


FOLLOWING THE HARDWARE QUESTIONS ARE THE SOFTWARE QUESTIONS TO 
BUILD THE SOFTWARE TABLES. WHICH DEFINE THE MODE (QUICK VERIFY ETC. ) 
THAT THE DIAGNOSTIC WILL EXECUTE IN. 


AT THE POINT WHERE THE QUESTION “# UNITS?" IS ANSWERED, 

CORE STORAGE 1S ALLOCATED FOR THE P-TABLES. AND IF THERE 1S NOT ENOUGH 
TO ACCOMMODATE THEM THE MESSAGE “TOO MANY UNITS" IS ISSUED. IN THIS CASE 
THE DIAGNOSTIC MUST BE EXECUTED MORE THAN ONCE TO TEST ALL UNITS. 

EXAMPLE: 


STA/TESTS: 1: 2-4: 6: 8-10/PASS: 3/FLAGS: IER: HOE=1: UAM: LOE 


SEQ 0005 


G 1 
THIS COMMAND WILL CAUSE THREE PASSES TO BE MADE. EACH PASS CONSISTING 
OF TESTS 1.2,3.4.6,8,.9,. AND 10 EXECUTED AGAINST ALL UNITS. THERE IS NO 
DIFFERENCE BETWEEN SAYING ¢FLAG) AND SAYING <FLAG=1>. THE 
NOTATION <FLAG=0> 1S MEANINGFUL ONLY ON A COMMAND OTHER THAN 
START TO CLEAR A FLAG THAT WAS PREVIOUSLY SET. NOTE THAT 
ON ALL COMMANDS ONLY THE FIRST THREE LETTERS ARE SCANNED. 


2. 3.2 RESTART COMMAND 


KKKKKAAAAA AI AAA AAA AAA AAA AAA AAA AAA AAA AAA AA AAA AAA AAA AA AAA AAA AAA AAA AAA AAA AAAS 
RES(TART)/TESTS: <TEST-LIST>/PQSS: <PASS-CNT>/FLAGS: <FLAG-LIST>/UNITS: <UNIT-LIST> 
¥RAKAAKAAAA AAA AAA AAA AAA AAA AAA AR AAA AAA AAA AAA AAA AA AAA AAA AAA AAA AAA AAA AAA AAA AAAS 


2.3.2.1 TESTS, PASS. AND FLAGS SWITCHES 
<TEST-LIST>, <PASS-CNT>, AND <FLAG-LIST> ARE AS IN THE START COMMAND 
2.3.2.2 UNITS SWITCH (/UNITS: <UNIT-LIST>) 


<UNIT-LIST> 1S A SEQUENCE OF DECIMAL NUMBERS (1.2 ETC.) OR RANGES 

OF DECIMAL NUMBERS (1-5, 8-10 ETC.) SEPARATED BY COLONS, INDICATING 
WHICH UNITS IT !S DESIRED BE TESTED. THE NUMBERS MAY RANGE FROM 1 THRU 
N (N IS THE NUMBER OF UNITS SPECIFIED IN THE PREVIOUS START COMMAND) 

THE NUMBER INDICATES THE POSITION OF THE P-TABLE AS THE DATA WAS ENTERED 
DURING THE HAROWARE DIAGLOGUE. THE UNITS WHICH ARE 

SELECTED MUST NOT HAVE BEEN DROPPED BY THE DROP COMMAND. SEE THE 
DISCUSSION OF ADD PND DROP COMMANDS BELOW. DEFAULT 

iS TO TEST ALL UNITS WHICH HAVE NOT BEEN DROPPED BY A DROP COMMAND 


2.3.2.3 EFFECT OF COMMAND 


THE RESTART COMMAND DIFFERS FROM THE START COMMAND IN THAT THE P-TABLES 
FROM THE PREVIOUS START COMMAND (THERE MUST HAVE BEEN ONE) ARE USED, IN- 
STEAD OF NEW ONES BEING BUILT. THE UNITS SWITCH GIVES THE ABILITY TO 
SELECT A SUBSET OF THESE. THE SOFTWARE DIALOGUE MAY OPTIONALLY BE RE- 
EXECUTED (OPERATOR WILL BE ASKED). THE COMMAND CAN BE USED AFTER COMMAND 
MODE HAS BEEN REENTERED IN ANY OF THE THREE NORMAL WAYS: A) THE RE- 
QUESTED NUMBER OF PASSES HAVE BEEN MADE 8) AN ERROR WAS ENCOUNTERED 

WITH THE HALT ON ERROR LAG SET C) A CONTROL/C WAS ENTERED BY THE 
OPERATOR. 


2. 3. 3 CONTINUE COMMAND 


KEXKAKAAAAAAAAAAARAAAAA AAA AAA ATA ATARI 

CON( TINUE )/PASS: <PASS-CNT/FLAGS: <FLAG-LIST> 

KEAKAAAKAAATAAARAAAAA AAR AAA AAA AAA AAAS 

2.3.3.1 PASS SWITCH (/PASS: <PASS-CNT>) 
<PASS-CNT> IS SAME AS IN START COMMAND, BUT THE DEFAULT IS THE UN- 
SATISFIED PASS-CNT FROM THE PREVIOUS START OR RESTART. IF NONE RE- 
MAINS, THE DEFAULT 1S NON-ENDING EXECUTION. 

2.3.3.2 FLAG SWITCH (/FLAGS: <FLAG-LIST>) 


<FLAG-LIST> 1S SAME AS IN START COMMAND. BUT UNSPECIFIED FLAGS RE- 


SEQ 0006 


TAIN THEIR CURRENT VALUE. 
2. 3.3.3 EFFECT OF COMMAND 


CONTINUE MUST FOLLOW A START OR RESTART. AND COMMAND MODE MUST HAVE 
BEEN ENTERED DUE TO A HALT ON ERROR OR A CONTROL/C. THE EFFECT 

OF THE COMMAND 1S TO GO TO THE BEGINNING OF THE TEST THAT WAS BEING 
EXECUTED WHEN THE HALT OR CONTROL/C TOOK PLACE. SOFTWARE DIALOGUE MAY 
OPTIONALLY BE REEXECUTED. HARDWARE PARAMETERS MAY NOT BE CHANGED. 


2.3.4 PROCEED COMMAND 


KKKKAKKAKARAAA KAKA AAA AAA AAAS 
PRO(CEED)/FLAGS: <FLAG-LIST> 
HKAKAAKAA AAA EAA AAA AAA EE 


2.3.4.1 FLAGS SWITCH (/FLAGS: <FLAG-LIST>) 


<FLAG-LIST> IS AS IN THE START COMMAND, BUT UNSPECIFIED FLAGS RETAIN 
THEIR CURRENT VALUE. 


2.3.4.2 EFFECT OF COMMAND 


PROCEED MUST FOLLOW A START. RESTART, OR CONTINUE. COMMAND MODE 
MUST HAVE BEEN ENTERED VIA A HALT ON ERROR. THE EFFECT OF THE 
COMMAND iS TO BEGIN EXECUTION AT THE LOCATION FCLLOWING THE 

ERROR CALL. NEITHER HARDWARE NOR SOFTWARE PARAMETERS MAY BE ALTERED 


2.3.5 CREATE CORE IMAGE COMMAND 


KEXKAAAAAAA AAA AAA AAA AAA AAA AAA AA AA AAA AAA AAA AAA AAA EY 
CCI/TESTS: <TEST-LIST>/PASS: <PASS-CNT>/FLAGS: <FLAG-LIST> 
KEKKAAKAAAAAA AAA AA AAA AAA AAA AAA AAA AR AAA AAA AAA AAA AAA ERTS 


2.3.5.1 TESTS. PASS, AND FLAGS SWITCHES 


<TEST-LIST>,. <PASS-CNT>, <FLAG-LIST>. AND ARE AS 
IN THE START COMMAND. EXCEPT THAT THE UAM (UNATTENDED MODE) FLAG 
DEFAULTS TO THE SET POSITION. 


2.3.5.2 EFFECT OF COMMAND 


THE PURPOSE OF THIS COMMAND 1S TO CREATE A BIC FILE SUITABLE Fk 
CHAIN MODE EXECUTION. THE XXDP PROCEDURE IS AS FOLLOWS: 


INVOKE THE XXDP UTILITY UPD1 

LOAD XXN: FILE. BIN 

START 200 

<QUESTIONS AND ANSWERS> 

RESTART UPD1 USING RESTART ADDRESS 

HICORE ADDRESS (IF “PASSED 14. 5K" MESSAGE CANE) 
DUMP XXN: FILE. BIC 


THE OPERATOR DIALOGUE (HARDWARE AND SOFTWARE) WILL 
BE EXECUTED AS IN THE START COMMAND, BUT AT THE END OF THE QUESTIONS 
THE HALT STATE WILL BE ENTERED, AT WHICH TIME THE OPERATOR SHOULD 


SEQ 0007 


Lcsmsaleticetd 





| 
DUMP THE PROGRAM TO THE XXDP LIBRARY USING A BIC EXTENSION 
TO INDICATE THAT THIS FILE 1S CHAINABLE. HE SHOULD USE THE XXDP UTILITY 
“UPDi" TO DO THIS. IF THE P-TABLES EXTEND BEYOND 14.5K, A MESSAGE 
WILL BE ISSUED GIVING THE NEW UPPER CORE LIMIT, rr WHICH THE OPERATOR 
MUST ADJUST BEFORE DUMP ING. HE MAY NOW DELETE THE 
NON-CHAINABLE BIN FILE IF DESIRED, SINCE THE BIC FILE HAS ALL THE 
CAPABILITIES OF IT. 


WHEN THIS BIC FILE 1S SUBSEQUENTLY EXECUTED IN CHAIN MODE, 
THE OPERATOR DIALOGUES WILL BE BYPASSED. HOWEVER, IF IT IS EXECUTED 
STANDALONE, THE DIALOGUE WILL BE REISSUED. 


NOTE THAT IF THE MESSQGE “TOO MANY UNITS" IS ISSUED, TWO OR MORE 
CORE IMAGES MUST BE CREATED (WITH DIFFERENT NAMES) TO TEST ALL UNITS 


2. 3.6 ADD COMMAND 


KEXKKKKAAAAE RARE AAAS 
ADD/UNITS: <UNIT-LIST> 
KEKKKKAKKAAA KAA AAEAEE 


2.3.6.1 UNITS SWITCH (/UNITS: <UNIT-LIST> 
<UNIT-LIST> 1S AS IN THE RESTART COMMAND 
2.3.6.2 EFFECT OF COMMAND 


THE UNITS SPECIFIEC ARE ADDED TO THE TEST SEQUENCE. EACH UNIT 

MUST HAVE A P-TABLE IN MEMORY DUE TO AN EARLIER HARDWARE DIALOGUE. 

THIS COMMAND MUST BE FOLLOWED BY A RESTART OR CONTINUE. THE UNITS 
SWITCH MUST BE SPECIFIED. THE ADD COMMAND IS MEANINGFUL ONLY FOR UN!TS 
THAT WERE FREVIOUSLY DROPPEC 


2. 3. 7 DROP COMMAND 


KKKKKKAAAAAAAAAAAA AAT TE 
DRO(P)/UNITS: <UNIT-LIST> 
boo of oF oF & FO & 3 3 8 2 3 3 8 8 8 8 8 | 


2.3.7.1 UNITS SWITCH (/UNITS: C<UNIT-LIST>) 
<UNIT-LIST> IS AS IN THE RESTART COMMAND 

2.3.7.2 EFFECT OF COMMAND 
THE UNITS SPECIFIED WILL BE DROPPED FROM TESTING. THE UNITS WILL 
BE RESELECTED ONLY BY THE EXECUTION OF AN ADD OR START COMMAND. 
THE UNITS SWITCH MUST BE ENTERED. THIS COMMAND MUST BE 
FOLLOWED BY A RESTART OR A CONTINUE COMMAND. 


2. 3.8 PRINT COMMAND 


KEKKEKE 
PRI(NT) 
KEKKKEE 


2.3.8.1 EFFECT OF COMMAND 


——_——_—— 


SEQ 0008 

























2.3.9 D1 


KEXKEKKE 
DIS(PLAY 
KXKKRKKE 


2. 3.9.1 


ee © | 


. 3.10 F 


bt 


AKKKEKK 
FLACGS) 
¥KKKKKE 


2. 3.10.1 


KXKXKKEE 
ZFL (AGS) 
KXKXKEKEK 


2.3. 11.1 


2. 5. 12 


Joi 
ALL STATISTICS TABLES ACCUMULHiED BY THE DIAGNOSTIC ARE PRINTED. THE 
ISR CINHIBIT STATISTICAL REPORTING) FLAG IS CLEARED. 


SPLAY COMMAND 


KKKAAAAAAA AAA AAA AEE 

)/UNITS: C<UNIT-LIST> 

KXKKKAAAAAAAAAA AES 

UNITS SWITCH (/UNITS: <UNIT-LIST>) 

CUNIT-LIST> 1S AS IN THE RESTART COMMAND 

EFFECT OF COMMAND 

THE HARDWARE P-TABLES FOR ALL UNITS UNDER TEST ARE PRINTED OUT IN THE 
FORMAT IN WHICH THEY WERE ENTERED. ANY UNITS THAT WERE DROPPED BY THE 
OPERATOR “DROP” COMMAND ARE SO DESIGNATED. 


LAGS COMMAND 


EFFECT OF COMMAND 
THE CURRENT SETTINGs OF ALL FLAGS ARE PRINTED. 


2. 3.11 ZFLAGS COMMAND 


EFFECT OF COMMAND 
ALL FLAGS ARE CLEARED 


CONTROL CHARACTERS 


A CONTROL C ( C) ENTERED VIA THE CONSOLE DEVICE DURING THE 
EXECUTION OF A DIAGNOSTIC CAUSES A RETURN TO THE DIAGNOSTIC 
SUPERVISOR COMMAND MODE. 


A CONTROL Z ( 2) ENTERED WITHIN ONE OF THE THREE OPERATOR 
DIALOGUES (HARDCORE. HARDWARE, OR SOFTWARE QUESTIONS) CAUSES 
THE DEFAULT VALUES TO BE TAKEN FOR THE REMAINDER OF THAT 
DIALOGUE. 


A CONTROL O ( 0) ENTERED DURING THE EXECUTION OF A DIAGNOSTIC 
CAUSES ALL CONSOLE DEVICE OUTPUT TO BE SUPPRESSED FOR THE 
REMAINDER OF THE DIAGNOSTIC OR UNTIL ANOTHER CONTROL 0 IS 
TYPED. 





SEQ 0009 


2. 3. 13 HARDWARE PARAMETERS SEQ 0010 


THE FOLLOWING QUESTIONS WILL BE ASKED ON A START COMMAND. THE 
VALUE LOCATED TO THE LEFT OF THE QUESTION MARK IS THE DEFAULT 
VALUE THAT WILL BE TAKEN ON A CARRIAGE RETURN RESPONCE. 

RLii (L) Y? 


ANSWER YES(Y) IF YOU HAVE AN RL11 CONTROLLER, NOC(N) IF YOU 
HAVE AN RLV11 CONTROLLER. 


BUS ADDRESS (0) 174409? 

ANSHER WITH THE BUS ADDRESS OF THE CONTROLLER. 

VECTOR (0) 330? 

ANSWER WITH THE INTERRUPT VECTOR OF THE CONTROLLER 
BR LEVEL (0) 5? 

ANSWER WITH THE INTERRUPT PRIORITY OF THE CONTROLLER. 
DRIVE (0) 07 

ANSHER WITH THE DRIVE(S) CONNECTED TO THE CONTROLLER. 


2. 3.14 SOFTWARE PARAMETERS 


AFTER HARDWARE PARAMETERS ARE SPECIFIED, THE USER IS ASKED IF 
SOFTWARE PARAMETERS ARE TO BE CHANGED. 


CHANGE S.W. (Y OR N)? (NO DEFAULT) 


1F "NO", SOFTWARE PARAMETER ENTRY IS SKIPPEO. ALL DEFAULT 
VALUES ARE USED. IF “YES". THE PARAMETERS LISTED BELOW ARE 
REQUESTED. TYPING CONTROL Z IN RESPONSE TO ANY PARAMETER 
QUESTION ALLOWS THIS AND ALL REMAINING PARAMETERS TO DEFAULT 


USE ALL CYLINDERS (N)? 


IF "YES". THOSE TESTS THAT NORMALLY USE A SELECTED SET OF 
CYLINDERS WILL TEST EVERY CYLINDER ON THE CARTRIDGE. 


USE ALL SECTORS (N)? 


iF “YES”. THOSE TESTS THAT NORMALLY USE A SINGLE SECTOR TO 
TEST A GIVEN OPERATION (SUCH AS SEEK DESTINATION) WILL READ 
AND VERIFY EVERY SECTOR HEADER. 


EXECUTE MANUAL INTERVENTION TESTS (N)? 


IF "YES", SEEK TIMING, ROTATIONAL TIMING. AND WRITE LOCK ERROR 
AND DATA PROTECTION TESTS ARE EXECUTED. THE ONLY TEST THAT 
ACTUALLY REQUIRES MANUAL INTERVENTION IS THE WRITE LOCK TEST 
AND THAT TEST WILL BYPASS AUTOMATICALLY AFTER WAITING 30 









SECONDS FOR WRITE LOCK TO BE SET. 


LOWER SEEK LIMIT (N)? 
IF “YES", THE NEXT PARAMETER 1S REQUESTED. 
ENTER VALUE (DECIMAL) (0)? 


THIS LIMIT 1S IMPOSED ON ALL SEEK OPERATIONS SUCH THAT TE-TING 
1S NOT DONE BELOW THAT LIMIT. IN ADDITION, SETTING THIS LIMIT 
(OR THE UPPER LIMIT. SEE BELOW) CAUSES THE FORWORD AND REVERSE 
OSCILLATING SEEK TESTS TO PERFORM DIFFERENTLY (SEE TEST 
DESCRIPTION). TESTS THAT REQUIRE ACCESS TO A SPECIFIC 
CYLINDER THAT FALLS BELOW THE SPECIFIED LIMIT WILL IGNORE THE 
LIMIT (SEE WRITE/ZREAD TEST PART 1). 


UPPER SEEK LIMIT (N)? 














IF "YES", AN UPPER CYLINDER LIMIT IS IMPOSED IN THE SAME 
MANNER AS THE LOWER SEEK LIMIT. A “YES" RESPONSE WILL CAUSE 
THE FOLLOWING PARAMETER REQUEST. 


ENTER VALUE (DECIMAL) (255)? 
USE ONLY ONE SURFACE (N)? 
IF “YES". THE NEXT PARAMETER 1S REQUESTED 
SPECIFY SURFACE (0 OR 1) (DECIMAL) (0)? 


WHICHEVER SURFACE 1S SPECIFIED 1S THE ONLY SURFACE TESTED IN 
THE ENTIRE PROGRAM. ANY TEST THAT 1S DESIGNED TO TEST THE 
OTHER SURFACE 1S AUTOMATICALLY BYPASSED. THE PROGRAM DOES NOT 
PRINT ANY INDICATION THAT A TEST 1S BYPASSED IN THIS CASE. 


SPECIFY ERROR LIMIT (DECIMAL) (20)? 


THIS PARAMETER SPECIFIES THE MAXIMUM NUMBER OF ERRORS ALLOWED. 
THIS LIMIT IS ON A PER DRIVE BASIS INA SINGLE PASS. IF THE 
ERROR LIMIT 1S EXCEEDED. THE DRIVE 1S DROPPED FROM FURTHUR 
TESTING. 


DATA COMPARE ERROR LIMIT (DECIMAL) (20)? 


THIS PARAMETER SPECIFIES THE NUMBER OF DATA COMPARE ERRORS 
THAT WILL BE LISTED FOR A GIVEN COMPARE OPERATION. AFTER THE 
LIMIT 1S REACHED. THE DATA ERRORS ARE NOT PRINTED BUT THE 
COMPARE CONTINUES UNTIL THE END OF THE DATA FIELD. A TOTAL IS 
REPORTED AT THE END OF THE COMPARE. 


DROP DRIVE IF NO RESPONSE (N)? 
IF THIS PARAMETER 1S SPECIFIED AS YES. THE PROGRAM WILL CHECK 
iF THE ORIVE 1S READY OR IF IT WILL RESPOND TO A GET STATUS 
BEFORE TESTING STARTS ON THAT DRIVE. IF IT 1S NOT READY AND 


WILL NOT RESPOND TO A GET STATUS THE DRIVE 1S DROPPED AND A 
MESSAGE 1S PRINTED. 





2. 3.15 EXTENDED DISCUSSION OF P-TABLE DIALOGUE 
aaa! SEQ 0012 


THE FULL CAPABILITY OF THE HARDWARE DIALOGUE IS REVEALED BY THE FOLLOWING 
DISCUSSION OF WHAT HAPPENS INTERNALLY. 


AS SOON AS THE QUESTION "@ UNITS?" IS ANSWERED (WITH THE NUMBER 

N, SAY) SPACE IN CORE 1S ALLOCATED FOR N P-TABLES. ALL OF THE P-TABLES 
ARE OF THE SAME FORMAT. AND THERE IS A ONE-TO ONE CORRESPONDENCE BETWEEN 
THE HARDWARE PARAMETER QUESTIONS AND THE SLOTS IN THE P-TABLE FORMAT. 


ON THE FIRST TRIP THRU THE QUESTIONS. ALL OF THE SLOTS IN ALL OF THE 

P-TABLES ARE FILLED. IF THE OPERATOR TYPES IN LESS THAN N EXPLICIT VALUES 

IN RESPONSE TO A PARTICULAR QUESTION. THESE VALUES ARE PLACED IN THE P-TABLES 
(ONE VALUE GOING INTO THE PROPER SLOT OF EACH P-TABLE BEGINNING WITH THE 
FIRST P-TABLE) UNTIL THE STRING OF VALUES IS EXHAUSTED. THE LAST VALUE 

IN THE STRING BECOMES THE NEW DEFAULT AND 1S USED THEN AND THERE TO FILL 

THAT SLOT IN THE REMAINING P-TABLES. 


ON SUBSEQUENT TRIPS THRU THE QUESTIONS. THE SAME PROCESS IS CARRIED OUT, 
EXCEPT THAT THE EARLIEST P-TABLE NOT TO HAVE RECEIVED AN EXPLICIT VALUE 
IN a OR de NOW ASSUMES THE ROLE THAT TABLE NUMBER ONE PLAYED 
IN THE Fl IP. 


THE SERIES OF QUESTIONS IS REISSUED UNTIL AT LEAST ONE QUESTION HAS RECEIVED 
N EXPLICIT VALUES FROM THE OPERATOR. 


IN GIVING A STRING OF VALUES. COMMAS WITHOUT INTERVENING VALUES MAY BE USED 
TO INDICATE A REPETITION OF THE LAST NAMED VALUE. 


A STRING OF VALUES MAY BE GIVEN AS A RANGE (6-10 FOR EXAMPLE). IF THE 
VALUES REPRESENT PURE NUMERICAL DATA. THIS SAMPLE RANGE TRANSLATES TO THE 
STRING 6.7.8,.9.10 (AN INCREMENT OF 1). IF THE VALUES ARE ADDRESSES, THE 
SAMPLE RANGE TRANSLATES TO THE STRING 6.8,10 (AN INCREMENT OF 2). 


NOW LET US SEE HOW WE COULD USE THESE CAPABILITIES TO CONSTRUCT A SET OF 
P-TABLES. ASSUME THAT WE HAVE 64 UNITS, AND THAT THERE ARE THREE HARDWARE 
PARAMETERS FOR EACH (THREE SLOTS IN THE P-TABLE. THREE HARDWARE QUESTIONS 
IN THE DIALOGUE). LET THE DESIRED VALUE FOR THE FIRST PARAMETER 

BE THE NUMBER 75 FOR ALL 64 TABLES. LET THE DESIRED VALUE FOR THE SECOND 
PARAMETER BE EQUAL TO THE UNIT NUMBER (1,2,3,....64) EXCEPT FOR UNIT 

50, WHICH SHOULD RECEIVE THE VALUE 49. LET THE DESIRED VALUE FOR THE THIRD 
PARAMETER BE THE NUMBER 76 FOR THE FIRST 20 UNITS AND THE NUMBER 77 FOR THE 
LAST 44 UNITS. 


THE FOLLOWING DIALOGUE WOULD ACCOMPLISH THIS GOAL: 
& UNITS (0) 7? 64 


UNIT 1 

<QUESTION 1> ? 75 
<QUESTION 2> ? 1-20 
{QUESTION 3> ? 76 


UNIT 21 
{QUESTION 1> ? 
{QUESTION 3> ? 77 


N 1 
THE FIRST TIME THE SERIES 1S ASKED, SLOT ONE RECEIVES A 75 IN ALL 
64 TABLES. SLOT TWO RECEIVES THE VALUES 1.2,3,...,20 IN TABLES 1 THRU 20 
ae mg a ig IN TABLES 21 THRU 64. SLOT THREE RECEIVES A CONSTANT 76 


THE SECOND TIME THRU THE SERIES, TABLES 21 THRU THE END ARE GOING TO 

BE AFFECTED (NOTE THAT THIS PIECE OF INFORMATION IS PRINTED OUT FOR THE 
THE OPERATOR IN THE FORM “UNIT XX" AT THE BEGINNING OF EACH SERIES). 
QUESTION 1 1S RESPONDED TO BY A <CR>. SO SLOT ONE STAYS 

AT CONSTANT 75 IN TABLES 21 THRU 64%. SINCE NO NEW EXLICIT VALUES ARE TYPED 
IN. SLOT TWO GETS THE VALUES 21,22,23.....49 IN TABLES 21 THRU 49, AND 
GETS A 49 IN SLOT 50, AND GETS THE VALUES 51,52,53,...,64 IN TABLES 

51 THRU 64. SLOT THREE GETS THE VALUE 77 IN TABLES 21 THRU 64. 


THE DIALOGUE IS TERMINATED WHEN THE SOFTWARE RECOGNIZES THAT 64 
EXPLICIT VALUES HAVE BEEN GIVEN FOR AT LEAST ONE QUESTION 
(NAMELY QUESTION 2). 


2.4 EXECUTION TIMES 


FIRST PASS EXECUTION ON 1 DRIVE WITH MANUAL INTERVENTION WILL 
REQUIRE APPROXIMATELY 8 MINUTES. SECOND AND SUBSEQUENT PASS 
RUN TIME 1S APPROXIMATELY ZO MINUTES 


3.0 ERROR INFORMATION 


THE OPERATION MESSAGE (LINE 4%) IS GENERATED IN A DYNAMIC 
MANNER BASED ON THE SUBSYSTEM FUNCTION BEING EXECUTED AT THE 
TIME OF THE ERROR AND THE STATE OF THE FLAGS IN THE LOCATION 
TAGGED “OPFLAGS”. THE POSSIBLE OPERATION MESSAGES ARE GIVEN 
BELOW. 


SEEK - 

FROM <CYL NUM) DIFF (CYL DIFF) SGN (0 OR 1) HD (0 OR 1) WHERE 
THE VALUES ARE GIVEN IN OCTAL. THIS MESSAGE IS THE RESULT OF 
A SEEK OPERATION THAT WAS VERIFIED BY A READ HEADER AND THE 
HEAD POSITION AFTER A SEEK IS IN ERROR. (THE ACTUAL HEAD 
POSITION IN THIS ERROR SITUATION IS GIVEN IN THE RESULT LINE, 
LINE 5. ) 


READ DATA - 

1S A READ DATA OPERATION WHERE SOME FORM OF ERROR WAS DETECTED 
IN THE ACTUAL READ OPERATION. THIS ERROR COULD BE HARDWARE 
DETECTED SUCH AS DATA CRC, HEADER CRC. HEADER NOT FOUND. ETC , 
OR A SOFTWARE DETECTED ERROR SUCH AS DRIVE READY RESET AFTER A 
READ DATA COMPLETED. 


READ DATA WITH DATA COMPARE - 
1S AN ERROR THAT WAS DETECTED AS BAD DATA IN THE BUFFER AFTER 


A READ CATA OPERATION. WHEN THIS OPERATION IS REPORTED IT 
INDICATES THE ACTUAL READ DATA OPERATION COMPLETED WITH NO 


SEQ 0013 


DETECTED ERRORS BUT THE DATA WAS WRONG. 


READ HEADER - 

READ HEADER FOR 4O HEADERS - 

READ HEADER FOR 4O HEADERS WITH HEADER COMPARE - 

HAVE THE SAME GENERAL MEANING AS THE READ DATA AND READ DATA 
WITH DATA COMPARE. MESSAGES HAVING THE OPERATION OF READ 
HEADER OR READ HEADER FOR 4O HEADERS ARE THE RESULT OF ERRORS 
DETECTED IN THE ACTUAL OPERATION WHILE THE READ HEADER FOR 40 
HEADERS WITH HEADER COMPARE INDICATES NO ERROR IN THE ACTUAL 
OPERATION BUT THE HEADER DATA ITSELF WAS IN ERROR. 


WRITE DATA - 

RESET - 

GET STATUS - 

GET STATUS WITH RESET - 

ARE ALL BASIC OPERATIONS. AS BEFORE. THE ERROR DETECTION CAN 
BE EITHER HARDWARE OR SOFTWARE. THE RESULT LINE (LINE 5) WILL 
DEFINE THE REASON FOR THE REPORT. 


LD ORV - 

UNLD DRV - 

ARE OPERATION MESSAGES THAT WILL APPEAR IN THE REPORT WHEN THE 
DRIVE LORD AND UNLOAD SEQUENCE IS BEING TESTED. 


ANOTHER GROUP OF OPERATION QUALIFIERS WILL BE REPORTED FOR 
OPERATIONS THAT FAIL IN SPECIFIC TESTS. THESE TESTS ARE THE 
WRITEZREAD TEST PART 2. OVERWRITE TEST. AND THE ADJACENT 
CYLINDER INTERFERENCE TEST 


OPERATION QUALIFIER 
READ DATA WITH DATA COMPARE FOL O TO CC SEEK 
READ DATA FOL 255 TO CC SEEK 
WRITE DATA FOL WRITE (NO SEEK) 
READ HEADER ADJ. CYL WRITTEN AFTER FWD SK 


ADJ. CYL WRITTEN AFTER REV SK 
SK FWD, WRT-SK REV, OVERWRT 
SK REV, WRT-SK FWD. OVERWRT 


THE ABOVE OPERATIONS CAN BE REPORTED WITH ANY OF _ THE 
QUAL IF IERS. THE QUALIFIERS IN THESE TESTS ARE AN ATTEMPT TO 
MAKE THE REPORT MORE MEANINGFUL BY PROVIDING INFORMATION ABOUT 
THE SEQUENCE OF OPERATIONS BEING DONE. 


THE QUALIFIERS "FOL O TO CC SEEK” AND “FOL 255 TO CC_ SEEK" 
INDICATE THAT THE SEQUENCE OF OPERATIONS INCLUDED A SEEK OF A 
GIVEN DIRECTION TO THE CYLINDER WHERE THE TEST iS BEING 


PERFORMED. 


THE “FOL WRITE (NO SEEK)" QUALIFIER MEANS THAT THE OPERATION 
WAS DONE AFTER A WRITE WITH NO HEAD MOVEMENT BETWEEN THE WRITE 
AND READ. 


THE QUALIFIER “ADJ CYL WRITTEN AFTER FWD SK" AND “ADJ CYL 
WRITTEN AFTER REV SK" WILL BE REPORTED ONLY IN THE ADJACENT 
CYLINDER INTERFERENCE TEST. THESE QUALIFIERS ARE USED WHEN 
THE ERROR OCCURS ON THE CYLINDER UNDER TEST AND DEFINE THE 
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3. 1. 


Cc 2 
atthe THE HEADS WERE MOVED WHEN THE ADJACENT CYLINDER WAS 


THE QUALIFIERS "SK FWD, WRT-SK REV. OVERWRT" AND “SK REV, 
WRT-SK FWD, OVERWRT” WILL BE REPORTED ONLY IN THE OVERWRITE 
TEST. THESE QUALIFIERS DEFINE THE DIRECTION OF HEAD MOTION 
BEFORE THE INITIAL WRITE AND THE OVERWRITE. 


THE QUALIFIER “ON BAD SEC FILES" WILL BE REPORTED WITH THE 
WRiTE DATA COMMAND IF THE PROGRAM ABORTS THAT COMMAND BECAUSE 
THE WRITE WOULD BE ON THE BAD SECTOR FILES. 


SPECIFIC RESULT MESSASES 


THE RESULT MESSAGE (LINE 5) IS GENERATED DYNAMICALLY BASED ON 
THE EXPECTED RESULT OF THE OPERATION BEING TESTED. SINCE 
OPERATIONS ARE MONITORED DURING EXECUTION THE RESULT MESSAGE 
MAY REPORT AN ERROR DETECTED DURING THE OPERATION AS WELL AS 
THE ERRORS SEEN AT THE END OF THE OPERATION. ONLY THE FIRST 
ERROR SEEN IS REPORTED IN ALL CASES. 


THE GENERAL FORMAT FOR THE RESULT LINE IS 
RESULT: (VAR 1) IS (VAR 2) SB (VAR 3) (OPTIONAL QUALIFIER) 
WHERE VARIABLE 1 CAN BE ONE OF THE FOLLOWING: 


CONT ERR 

DRV ERR 

NON-EXSTNT MEM 

HDR CRC 

DATA CRC 

HOR NOT FND 

DATA LATE 

HOR NOT FND/HDR CRC/OP | 
ORV ROY 
SELECTED HEAD 
VOL CHK 

COVER OPEN 
BRUSH HME 

WRT LCK 


HDS OUT 

ORV SEL ERR 
DRY STATE 
SPIN TIMEOUT 


CUR HEAD ERR 
WRT DAT ERR 
OP INCOMPLETE 
HDR/DAT ERR 


HDR NOT FND/DAT LATE 
CYL 


VARIABLE 2 WILL BE A VALUE THAT 


(CONTROLLER ERROR) 
(DRIVE ERROR) 
(NON-EXISTANT MEMORY) 
(HEADER CRC ERROR) 


(HEADER NOT FOUND) 


(ALL 3 BITS SET) 
(DRIVE READY) 


(VOLUME CHECK) 


(BRUCH HOME ) 
(WRITE LOCK) 


(HEADER OUT) 

(DRIVE SELECT ERROR) 

(DRIVE STATE) 

(SPINDLE TIMEOUT SPD ERROR) 
(WRITE GATE ERROR) 

(SKTO ERROR) 

(CURRENT {N HEAD ERROR) 

(WRITE DATA ERROR) 

(OP | ERROR) 

(HEADER CRC OR DATA CRC ERROR 
BIT 11 OF CS REGISTER) 
(HEADER NOT FOUND OR DATA LATE 
ERROR BIT 12 OF CS REGISTER) 
(CYLINDER WHEN REPORTING A SEEK ERROR) 


DEFINES WHAT THE RESULT 
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D 2 
ACTUALLY 1S. THIS CAN BE A 1 OR O TO INDICATE A SET OF RESULT 
CONDITIONS. A NUMBER 0 TO 7 TO INDICATE THE DRIVE STATE. OR A 
NUMBER O TO 377 (OCTAL) TO IDENTIFY A CYLINDER NUMBER. 


oe 3 DEFINES THAT THE VALUE GIVEN IS VARIABLE 2 SHOULD 
THE OPTIONAL QUALIFIER IS PROVIDED WHEN IT 1S USEFUL TO KNOW 


WHEN THE ERROR WAS DETECTED IN THE OPERATION BEING PERFORMED. 
THIS QUALIFIER 1S USED TO REPORT RESULTS SUCH AS: 


BRUSH HME 1S 1 SB O IN STATE 2 
HEADS OUT 1S 9 SB 1 IN STATE 3 
ORV ROY IS 0 SB 1_IN DATA XFER 
SELECTED HEAD IS 1 SB O IN CYCLE UP 
DRV RDY IS 0 SB 1 IN STATE 5 
DRV RDY IS 1 SB O IN SEEK W/0 MOTION 
DRV ROY tS 0 SB 1 IN 10MS 
DRV RDY IS 0 SB 1 IN SOOMS 
DRV RDY tS 0 SB 1 IN SSECONDS 
THESE RESULTS, WHEN SEEN WITH THE OPERATION MESSAGE. WILL BE 


SELF EXPLANATORY 
OTHER RESULT MESSAGES THAT CAN BE PART OF AN ERROR REPORT ARE 


“INTERRUPT TO LATE" 

WHICH INDICATES THAT THE OPERATION BEING PERFORMED DID NOT 
COMPLETE IN THE EXPECTED AMOUNT OF TIME. THIS RESULT CAN BE 
CAUSED BY THE DRIVE LOOSING READY BEFORE STARTING A READ 
HEADER AND THEREFORE NOT COMPLETING THE READ HEADER IN IMS. 


“FAIL TO RELOAD HEADS AFTER ERR CLEAR" 
1S REPORTED WHEN AN ERROR CAUSES HEADS TO UNLOAD AND AFTER THE 
ERROR IS CLEARED THE HEADS DO NOT RELOAD 


“UNKN DRV STATE-NO RDY. NO ERR. HDS OUT” 
1S REPORTED WHEN THE PROGRAM CANNOT DETERMINE THE DRIVE STATE 
OR STATUS 


“WRITE ABORTED” 
1S REPORTED WHEN THE PROGRAM ABOK.S A WRITE TO PROTECT THE BAD 
SECTOR FILES. 


“COULD NOT RETRIEVE DRIVE STATUS” 
1S REPORTED IF THE GET STATUS COMMAND DOES NOT COMPLETE 
SUCCESSFULLY WHEN THE STATUS IS REQUIRED TO REPORT AN ERROR. 


“OP! SET-NO DRIVE RESPONSE” 

1S REPORTED AS THE RESULT WHEN THE GET STATUS COMMAND IS TIMED 
OUT (OPI! SETS) WHEN THAT COMMAND IS BEING USED IN THE EARLY 
TESTS TO CHECK THE DRIVE INTERFACE. 


“NO INTERRUPT ON CMND COMPLETE” 
1S REPORTED WHEN THE COMMAND SUCCESSFULLY COMPLETES BUT THE 
CONTROLLER HAS NOT GENERATED AN INTERRUPT 


“ERR DID NOT CLEAR" IS REPORTED WHEN THE RESET COMMAND DOES 
NOT CLEAR THE CONTROLLER ERRORS. THIS IS A CONTROLER RELATED 
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. * 


. = 
PROBLEM BUT IS REPORTED IF SEEN IN THE DRIVE TEST PROGRANS. 


“DRV ERR IS NOT CLEARED” 
1S REPORTED WHEN THE GET STATUS W/RESET COMMAND DOES NOT CLEAR 
ALL ORIVE ERRORS. 


“UNEXPECTED ERR" 
1S REPORTED WHEN THE CONTROLLER SENSES AN ERROR BUT NO ERROR 
BITS ARE SET. 


“BAD SEC FILE FMT ERR" 

1S REPORTED IF THE CONTENTS OF THE FILES DO NO CORRESPOND TO 
THE pt ae FORMAT (REFER TO DEC STANDARD 144 FOR FORMAT 
SPECIFICS. ) 


OTHER MESSAGES 


OTHER INFORMATION 1S REPORTED UNDER VARIOUS CIRCUMSTANCES. 
THESE ARE: 


“BAD SEC FILES NOT STRD. ALL SEC ASSUMED GOOD. " 

THIS MESSAGE 1S PRINTED WHEN A PARTICULAR TEST REQUIRES THE 
BAD SECTOR FILES BUT THEY HAVE NOT BEEN STORED. THIS 
SITUATION WILL OCCUR IF THIS TEST IS STARTED OUT OF THE NORMAL 
PROGRAM SEQUENCE OR IF THE BAD SECTOR FILES COULD NOT BE READ. 


“ERROR LIMIT EXCEEDED-UNIT DROPPED" 
1S REPORTED (WITH THE UNIT NUMBER) WHEN MORE THAN THE 


SPECIFIED NUMBER OF ERRORS (DEFAULT 20) HAVE OCCURED IN ANY 
SINGLE PASS 


MOST ERROR REPORTS HAVE THE FOLLOWING FORMAT. 


(1) PROG NAME ERR NUM TEST NUM SUBTEST NUM ERR PC 
(2) ROUTINE TRACE SEQ (IN SEQ CALLED) 
(ADDRESS) 
(ADDRESS) 


(ADDRESS) 
(2) TEST DESCRIPTION 
(4) OPERATION: 


(5) RESULT: 

(6) ADDRESS OF UNIT UNDER TEST 

(7) RLCS RLOA RLBA RLMP CYL HD 
(8) OP INIT 

(9) OP CONE 

(10) DRIVE STATUS 


(11) WORD NUM IS (XXXXXX) SB C(YYYYYY) 
(12) TOTAL COMPARE ERRS: (222) OF (128) 


THE ONLY EXCEPTION TO THE ABOVE FORMAT IS PURE DATA COMPARE 
ERRORS (NOT DETECTED BY READ ERROR). THEN THE FORMAT DOES NOT 
INCLUDE LINES 5 THROUGH 10. 


LINE 1 1S THE ERROR HEADER AND IS PROVIDED BY THE SUPERVISOR. 
THE PROGRAM 1S IDENTIFIED BY NAME WITH THE NUMBER OF TEST AND 
SUBTEST PRESENTLY BEING EXECUTED 
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F 2 
THE SUBTEST NUMBER 1S UNIQUE IN THIS PROGRAM IN THAT IT DOES 


NOT REFER TO A PHYSICAL SUBTEST WITHIN A GIVEN TEST. RATHER 
IT REFLECTS THE NUMBER OF TIMES A SUBTEST HAS BEEN EXECUTED 
WITHIN A_ TEST. CONSEQUENTLY. ON A TEST THAT TESTS AN 
INCREMENTAL TYPE OF OPERATION (SUCH A_ INCREMENTAL SEEKS, READ 
ALL HEADERS FROM BOTH SURFACES, ETC.) THE SUBTEST WILL BE 
DESCRIPTIVE OF WHERE IN THE TEST THE ERROR OCCURRED. 


SEQ 0018 
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G 2 
THE ERROR P.C. IS THE PHYSICAL MEMORY LOCATION WHERE THE 
ERROR REPORT WAS INITIATED. SINCE MANY FUNCTIONS ARE 
SUBROUTINED. AND ERRORS ARE REPORTED FROM SUBROUTINES, THE 
ERROR P.C. 1S NOT SUFFICIENT TO IDENTIFY THE LOCATION OF THE 
ERROR CALL AND THE ROUTINE TRACE SEQUENCE IS PROVIDED. 


LINE 2 1S THE ROUTINE TRACE SEQUENCE. IF THE ERROR CALL IS 
INITIATED FROM WITHIN THE TEST (AS OPPOSED TO WITHIN A 
ROUTINE), THIS PORTION OF THE REPORT IS OMITTED. IF THE CALL 
1S INITIATED FROM A ROUTINE (WHICH MAY BE CALLED BY ANOTHER 
ROUTINE. WHICH MAY BE CALLED BY ANOTHER ROUTINE. ETC. SEVERAL 
LEVELS DEEP) THE ROUTINE TRACE SEQUENCE PROVIDES A TRAIL TO 
THE ACTUAL LOCATION WITHIN THE TEST THAT CALLED THE FIRST 
ROUTINE. THE FIRST ENTRY LISTED 1S THE LOCATION WHERE THE 
FIRST ROUTINE WAS CALLED. 


LINE 3 1S THE TEST DESCRIPTION AND IS ROUGHLY IDENTICAL TO THE 
NAME OF THE TEST BEING PERFORMED 


LINE 4 IDENTIFIES THE ACTUAL HARDWARE FUNCTION THAT IS _ BEING 
PERFORMED. ADDITIONAL INFORMATION ON THIS LINE IS DESCRIPTIVE 
OF SPECIFIC USE OF THE FUNCTION. FOR EXAMPLE. THE OPERATION 
LINE WILL READ “READ HEADERS FOR 4O HEADERS” WHEN ALL HEADERS 
ARE BEING READ FROM A TRACK. 


LINE 5S IDENTIFIES THE ERROR THAT HAS BEEN DETECTED. THE 
CONTENT OF LINE 5 _ IDENTIFIES WHAT WAS BENG TESTED (SHCH AS 
DRIVE READY, CONTROLLER ERROR, DRIVE STATE. ETC.). WHAT IT IS 
AND WHAT IT SHOULD BE. LINE 5 MAY BE REPEATED IF MORE THAN 
ONE TESTED ITEM 1S rOUND IN ERROR. 


IN ADDITION LINE 5S WILL REPORT ANY HARDWARE DETECTED ERRORS 
SUCH AS GPERATION INCOMPLETE. HEADER CRC. ETC. IN THIS CASE 
THE FIRST LINE PRINTED AS RESULT WILL BE DETERMINED BY THE 
THREE ERROR BITS OPI. HNF/DLT. AND HCRC/DCRC. THE LINE WILL 
BE DETERMINED AS IN THE FOLLOWING TRUTH TABLE: 


HNF/DLT OCRCZHCRC OPI MESSAGE 
1 1 HDR NOT FND/HOR CRC/OPI ERROR 
HDR CRC ERROR 
HDR NOT FND ERROR 
DATA CRC ERROR 
DATA LATE ERROR 


—O— 
oO — 
oo, - 


LINE 6 IDENTIFIES THE PHYSICAL ADDRESS OF THE UNIT UNDER TEST 
THIS ADDRESS 1S BY UNIBUS ADDRESS OF THE CONTROLLER AND DRIVE 
NUMBER. 


LINE 7 NAMES THE CONTROLLER REGISTERS (AND CYLINOcR AND HEAD 
WHERE THESE ARE APPLICABLE IN THE REPORT) TO BE REPORTED. 


LINE 8 PROVIDES THE CONTENTES OF CONTROLLER REGISTERS WHEN THE 
OPERATION WAS INITIATED. 


LINE 9 PROVIDES THE CONTENTS OF THE CONTROLLER REGISTERS WHEN 
THE ERROR BEING REPORTED WAS DETECTED. FREQUENTLY THE 
REGISTER CONTENTS OF OP INIT AND OP DONE WILL BE DIFFERENT 

OP INIT MAY INDICATE A SEEK WAS BEING PERFORMED BUT OP DONE 
MAY INDICATE THE ERROR WAS DETECTED BY A READ HEADER. THE 
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H 2 oe eS ae 
REASON IS THAT A SEEK WAS EXECUTED AND DID NOT PROPERLY 
POSITION HEADS AND WHEN THE READ HEADER WAS DONE THE HEADS SEQ 0020 
WERE ON THE WRONG CYLINDER. , 


LINE 10 1S THE ORIVE STATUS. THIS LINE IS ONLY REPORTED IF | 
THE RLMP REGISTER DOES NOT CONTAIN THE ACTUAL DRIVE STATUS. 


LINE 11 AND LINE 12 ARE REPORTED IF THE ERROR WAS DETECTED AS 
A COMPARE OPERATION, EITHER DATA OR HEADERS. IN ADDITION, 
GOOD AND BAD DATA IS REPORTED FOR ALL READ ERRORS. 


3.2 ERROR HALTS 


ERROR HALTS ARE SUPPORTED PER DESCRIBED IN THE PREVIOUS SECTION 
WITH /FLAG: HOE. THERE ARE NO OTHER HALTS. 


4 O PERFORMANCE AND PROGRESS REPORTS 


THIS PROGRAM WILL NOT GIVE ANY PERFORMANCE REPORTS 


4. 2 PROGRESS REPORTS 


THIS PROGRAM WILL NOT GIVE ANY PROGRESS REPORTS. 


5.0 DEVICE INFORMATION TABLES 


THE RL11/RLV11 CONTROLLER HAS THE FOLLOWING FOUR (4) 
REGISTERS FOR CONTROL OF THE SUBSYSTEN. 


RLCS - CONTROL AND STATUS REGISTER (XXXXX0) 


BIT 15 - COMPOSITE ERROR 

BIT 14 - DRIVE ERROR 

BIT 13 - NON EXISTANT MEMORY ERROR 

BIT 12 - HEADER NOT FOUND (WITH BIT 10 SET) 
- DATA LATE (WITH BIT 10 CLEAR) 

BIT 11 - HEADER CRC (WITH BIT 10 SET) 
- DATA CRC (WITH BIT 10 CLEAR) 

BIT 10 - OPERATION INCOMPLETE 

BIT 9/78 - DRIVE SELECT (0-3) 

BIT 7 - CONTROLLER READY 

BIT 6 - INTERRUPT ENABLE 

BIT 5 - EXTENDED BUS ADDRESS (BIT 17) 

BIT 4 - EXTENDED BUS ADDRESS ‘BIT 16) 

BIT 3-1 - FUNCTION CODE 


O - NOP (PDP-11) MAINT (LSI-11) 
1 - WRITE CHECK 

2 - GET ORIVE STATUS 

3 - SEEK 


READ HEADER 

WRITE DATA 

READ DATA 

READ WITHOUT HEADER COMPARE 


BIT O - DRIVE READY 


NOW 
ieee 


RLBA - BUS ADDRESS REGISTER (XXXXX2) 


BITS 15-1 BUS ADDRESS OF DATA TRANSFER 
BIT O SHOULD BE O 


RLDA - DISK ADDRESS REGISTER (XXXXxX4) 


Bit 15 - MUST BE ZERO(O) 

BIT 14-7 - CYLINDER ADDRESS FOR TRANSFER 
BIT 6 - SURFACE FOR TRANSFER 

BIT 5-0 - SECTOR FOR TRANSFER (0-47) 


FOR SEEK FUNCTION 


BiT 15 - MUST BE ZERO(O) 

BIT 14-7 - DIFFERENCE TO NEW CYLINDER 

BiT 6-5 - MUST BE ZERO(O) 

BIT 4 - SURFACE 

BIT 3 - MUST BE ZERO 

BIT 2 - SEEK DIRECTION( 1 - IN / 0 - QUT ) 
BiT 1 - MUST BE ZERO 

BiT O - MUST BE ONE(1) 


FOR GET STATUS FUNCTION 


BIT 15-4 - IGNORED SHOULD BE ZERO 
BIT 3 - DRIVE RESET 

BIT 2 - MUST BE ZERO 

BIT 1 - MUST BE ONE 

BIT O - MUST BE ONE 


RLMP - MULTIPURPOSE REGISTER 


BIT 15 - O - WORD COUNT(TWO'S COMPLIMENT) 
FOR READ HEADER FUNCTION 


BIT 15-0 - DISK HEADER OF SECTOR (FIRST READ) 
- ZERO WORD (SECOND READ) 
~- HEADER CRC (THIRD READ) 


SEQ 0021 


FOR GET STATUS FUNCTION 


HAS DRIVE STATUS 


BIT 15 - WRITE DATA ERROR 

BIT 14% - CURRENT HEAD ERROR(CHE) 
BIT 13 - WRITE LOCK STATUS(WL) 
BIT 12 - SEEK TIME OUT(SKTO) 

BIT 11 - SPIN ERROR(SPE) 

BIT 10 - WRITE GATE ERROR(WGE) 
BIT 9 - VOLUME CHECK(VC) 

BIT 8 - DRIVE SELECT ERROR(DSE) 
BIT 7 - RESERVED(O) 

BIT 6 - SURFACE 

BIT 5 - COVER OPEN 

BIT 4% - HEADS HOME 

BiT 3 - BRUSHES HOME 

BIT 2-0 -STATE BITS 


0 - LOAD STATE 

1 - SPIN UP 

2 - BRUSH CYCLE 

3 - LOAD HEADS 

4 - SEEK - TRACK COUNTING 
5 - SEEK - LINEAR MODE 
6 - UNLOAD HEADS 
7 - SPIN DOWN 


6.0 TEST SUMMARIES 


TEST 1 


DIFFERENCE OF 1 SEEK TEST «(PART 1) 
DO READ HEHDER, WAIT FOR INTERRUPT. STORE WORD 1 OF HEADER. 


DO SEEK WITH DIFFERENCE OF 1, HEAD 0. IF CYLINDER OF STORED 
HEADER WORD 1S NOT 255 THEN SIGN BIT 1, ELSE SIGN BIT 0. WAIT 
FOR INTERRUPT. 


DO GET STATUS, WAIT FOR INTERRUPT. CHECK STATE 1S 4. IF NOT: 


DRIVE COMMAND SHIFT REGISTER BAD 
DIFFERENCE REGISTER DROPPED BIT 
STATE ROM FAILED 


WAIT APPROX 5 MS. DO GET STATUS. WAIT FOR INTERRUPT. CHECK 
STATE 1S 5. IF NOT: 


DIFFERENCE REGISTER NOT COUNTING 

COUNT PULSE NOT GENERATED (COUNT LOGIC) 
SEEK ROM FAILED 

FAILURE IN DC SERVO 

NO TACH FEEDBACK 


SEQ 0022 | 


TEST 2 


TEST 3 


WAIT APPROX 5 MS LONGER. TEST ORIVE READY. IF SET: 
FAILURE IN READY LATCH OR INTEGRATOR 
WAIT APPROX 5 MS LONGER. TEST READY. IF RESET: 


FAILURE IN INTEGRATOR 
UNEXPECTED GUARD BAND DETECTED 


DO SEEK WITH DIFFERENCE 1. OPPOSITE SIGN. HEAD 0. REPEAT ALL 
TESTS AS ABOVE. 


REPEAT TEST USING HEAD 1. 

NOTE: te TEST 1S PERFORMED AT THE CYLINDER POSITION FOUND 
THE DRIVE WHEN THE TEST EXECUTES. CHOOSING A 

SINGLE SURFACE WILL LIMIT TESTING TO THAT SURFACE. 

DIFFERENCE OF 1 SEEK TEST (PART 2) 

DO READ HEADER. WAIT FOR INTERRUPT. STORE WORD 1 OF HEADER. 

DO SEEK W!TH DIFFERENCE OF 1. HEAD 0. IF CYLINDER OF STORED 

HEADER WORD 1S NOT 255 THEN SIGN BIT 1. ELSE SIGN BIT 0. WAIT 

FOR INTERRUPT, WAIT FOR DRIVE READY. 

DO READ HEADER. WAIT FOR INTERRUPT. COMPARE CYLINDER OF THIS 

ye WITH CYLINOER OF STORED HEADER FOR DIFFERENCE OF ONE. 

IF NOT: 


COUNT LOGIC BAD 
INTERGRATOR FAILED 


CHECK THAT HEADS MOVED FORWARD OR REVERSE AS EXPECTED. F 
NOT: 


SEEK ROM FAILED 


DO SEEK WITH DIFFERENCE OF 1, OPPOSITE SIGN. HEAD 0. REPEAT 
ALL TESTS AS ABOVE. 


REPEAT TEST USING HEAD 1. 


NOTE: THIS TEST 1S PERFORMED AT THE CYLINDER POSITION FOUND 
IN THE DRIVE WHEN THE TEST EXECUTES. CHOOSING A 
SINGLE SURFACE WILL LIMIT TESTING TO THAT SURFACE. 


OUTER GUARD BAND DETECTION TEST 


DO READ HEADER. WAIT FOR INTERRUPT. CHECK IF AT CYLINDER O. 
IF NOT, SEEK REVERSE 1 CYLINDER AT A TIME UNTIL CYLINDER O IS 
REACHED. IF ANY REVERSE SEEK FAILS TO MOVE THE HEADS iN 10 
TRIES: 


DETECTION OF GUARD BAND PREMATURE. 
WHEN Al CYLINDER 0, DO SEEK DIFFERENCE OF 1, SIGN 0, HEAD 


0. 
WAIT FOR INTERRUPT, WAIT FOR READY. READY SHOULD SET IN 
ZOMS>T>15MS. IF NOT: 
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TEST 4 


TEST 5 


FAILED TO DETECT GUARD BAND 
+4 ~ HERDER. WAIT FOR INTERRUPT. CHECK FOR CYLINDER 0. 


FAILED TO SEEK BACK TO ZERO 


DO SEEK WITH DIFFERENCE OF 1. SIGN 0. HEAD 1. ODO SAME TESTS 
AS ABOVE WITH REGARD TO READY VS TIME AND CYLINDER FOUND IN 


HEADER. 


NOTE: CHOOSING A SINGLE SURFACE WILL LIMIT THE TESTING TO 
THAT SURFACE. 


INCREMENTAL FORWARD SEEK HEAD O TEST 


POSITION HEADS AT CYLINDER “LOLIMIT" USING SEEKS WITH 
DIFFERENCE OF ONE, HEAD O. 


DO SEEK WITH DIFFERENCE OF 1. SIGN 1, HEAD OQ. WAIT FOR 
7 aoe WAIT FOR DRIVE READY. CHECK READY IS SET IN 15 MS. 
1F NOT: 


POSITIONING PROBLEM AT A SPECIFIC CYLINDER 
MECHANICAL OBSTRUCTION 


DO READ HEADER. WAIT FOR INTERRUPT. CHECK THAT THIS CYLINDER 
1S OLD CYLINDER + 1 IF NOT: 


DIFFERENCE REGISTER OR COUNT LOGIC FAILURE 
. TRACK CROSSING DETECTION FAILURE 


REPEAT SEEKS AND READS UNTIL CYLINDER READ IS “HILIMIT". 


NOTE 1: - THE "USE ALL SECTORS" PARAMETER IS SPECIFIED AS 
", THE TEST WILL READ AND TEST ALL 40 HEADERS 
(CARTRIDGE VERIFY). 


NOTE 2: TESTING WILL BE DONE BETWEEN UPPER AND LOWER CYLINDER 
LIMITS. CHOOSING A SINGLE SURFACE WILL LIMIT TESTING 
TO THAT SURFACE. THIS TEST WILL BE BYPASSED IF 
SURFACE 1 IS CHOSEN. 


INCREMENTAL REVERSE SEEK HEAD O TEST 


POSITION HEADS AT CYLINDER “HILIMIT" USING SEEKS WITH 
DIFFERENCE OF 1. HEAD O. 


DO SEEK WITH DIFFERENCE OF 1, SIGN QO, HEAD QO. WAIT FOR 
INTERRUPT, WAIT FOR DRIVE READY. CHECK READY SET IN 15 MS: 


POSITIONING PROBLEM AT A SPECIFIC CYLINDER 
DO READ HEADER, WAIT FOR INTERRUPT. CHECK THAT THIS CYLINDER 
1S OLD CYLINDER - 1. IF NOT: 


DIFFERENCE REGISTER OR COUNT LOGIC FAILURE 
TRACK CROSSING DETECTION FAILURE 


SEQ 0024 


TEST 6 


TEST 7 


REPEAT SEEK AND CHECKS UNTIL CYLINDER IS "LOLIMIT”. 


NOTE: IF THE “USE ALL SECTORS” PARAMETER IS SPECIFIED AS 
THE TEST WILL READ AND TEST ALL 40 HEADERS 
(CARTRIDGE VERIFY). 


NOTE: TESTING WILL BE DONE BETWEEN UPPER AND LOWER CYLINDER 
LIMITS. CHOOSING A SINGLE SURFACE WILL LIMIT TESTING 
TO THAT SURFACE. THIS TEST WILL BE BYPASSED IF 
SURFACE 1 1S CHOSEN. 


INCREMENTAL FORWARD SEEK HEAD 1 TEST 


POSITION HEADS AT CYLINDER "“HILIMIT" USING SEEKS WITH 
DIFFERENCE OF ONE. HEAD O. 


DO SEEK WITH DIFFERENCE OF 1. SIGN 1. HEAD 1. WAIT FOR 
INTERRUPT, WAIT FOR DRIVE READY. CHECK READY IS SET IN 15 MS. 
IF NOT: 

POSITIONING PROBLEM AT A SPECIFIC CYLINDER 


DO READ HEADER. WAIT FOR INTERRUPT. CHECK THAT THIS CYLINDER 
1S OLD CYLINDER + 1. IF NOT: 


DIFFERENCE REGISTER OR COUNT LOGIC FAILURE 
TRACK CROSSING DETECTION FAILURE 


REPEAT SEEKS AND REHDS UNTIL CYLINDER READ IS “HILIMIT”. 
NOTE 1: i THE “USE ALL SECTORS" PARAMETER 1S SPECIFIED AS 
THE TEST WILL READ AND TEST ALL 40 HEADERS 

(CARTRIDGE VERIFY). 

NOTE 2: TESTING WILL BE DONE BETWEEN UPPER AND LOWER CYLINDER 
LIMITS. CHOOSING A SINGLE SURFACE WILL LIMIT TESTING 
TO THAT SURFACE. THIS TEST WILL BE BYPASSED IF 
SURFACE 0 IS CHOSEN. 

INNER GUARD BAND DETECTION TEST 


POSITION HEADS AT CYLINDER 255 USING SEEK WITH OIFFERENCE OF 
1, HEAD O. 


WHEN AT CYLINDER 255. DO SEEK WITH DIFFERENCE OF 1. SIGN 1, 
HEAD 0. WAIT FOR INTERRUPT. WAIT FOR DRIVE READY. READY 
SHOULD SET IN 20MS>T>15MS._ IF NOT: 

FAILED TO DETECT GUARD BAND 
DO READ HEADER. WAIT FOR INTERRUPT. _ CHECK FOR CYLINDER 255. 
IF NOT: 

FAILED TO SEEK BACK TO CYLINDER 255 


DO SEEK WITH DIFFERENCE OF 1. SIGN 1. HEAD 1. DO SAME TESTS 
AS ABOVE. 


SEQ 0025 


TEST 8 


TEST 9 


2 
NOTE: CHOOSING A SINGLE SURFACE WILL LIMIT THE TESTING TO 
THAT SURFACE. 


INCREMENTAL REVERSE SEEK HEAD 1 TEST 


POSITION HEADS AT CYLINDER “HILIMIT” USING SEEKS WITH 
DIFFERENCE OF 1. HEAD 0. 


DO SEEK WITH DIFFERENCE OF 1- SIGN QO, HEAD WAIT FOR 
INTERRUPT, WAIT FOR DRIVE READY. CHECK READY set IN 15 MS: 


POSITIONING PROBLEM AT A SPECIFIC CYLINDER 


DO READ HEADER. WAIT FOR INTERRUPT. CHECK THAT THIS CYLINDER 
1S OLD CYLINDER - 1. IF NOT: 


DIFFERENCE REGISTER OR COUNT LOGIC FAILURE 
TRACK CROSSING DETECTION FAILURE 


REPEAT SEEK AND CHECKS UNTIL CYLINDER IS "LOLIMIT" 


NOTE 1: IF PROGRAM MODE 2 1S USED AND THE “USE ALL SECTORS" 
PARAMETER IS SPECIFIED AS “Y", THE TEST WILL READ AND 
TEST ALL 40 HEADERS (CARTRIDGE VERIFY). 


NOTE 2: TESTING WILL BE DONE BETWEEN UPPER AND LOWER CYLINDER 
LIMITS. CHOOSING A SINGLE SURFACE WILL LIMIT TESTING 
TO THAT SURFACE. THIS TEST WILL BE BYPASSED IF 
SURFACE 0 !S CHOSEN 


SEEK TESTS 


POSITION HEADS AT CYLINDER “LOLIMIT" USING SEEKS WITH 
DIFFERENCE OF 1. HEAD O. 


DO READ HEADER, RECORD POSITION. DO SEEK WITH DIFFERENCE OF 2 
(MAX DISTANCE AT 3 IPS). SIGN 1, HEAD 0. DO READ HEADER. 
CHECK NEW CYLINDER 1S OLD CYLINDER + DISTANCE. IF NOT 


TRACK CROSSING DETECTION FAILURE 
DIFFERENCE COUNTER FAILURE 

COUNT PULSE GENERATION FAILURE 
VELOCITY ROM FAILURE 


REPEAT ABOVE UNTIL OLD CYLINDER + DISTANCE > 255. POSITION AT 
255. 


DO READ HEADER. RECORD POSITION. DO SEEK WITH DIFFERENCE OF 2 
(MAX DISTANCE AT 3 IPS). SIGN QO. HEAD 0. O00 READ HEADER. 
CHECK NEW CYLINDER 1S OLD CYLINDER - DISTANCE. IF NOT: 


TRACK CROSSING DETECTION FAILURE 


REPEAT UNTIL OLD CYLINDER - DISTANCE < 0. REPEAT ALL OF THE 
ABOVE USING HEAD 1. 


REPEAT ALL OF THE ABOVE TESTS USING THE FOLLOWING DISTANCES: 
6 9 12, 17. 22. 27, 34. 41. 128. 256. THESE DISTANCES ARE 
SPECIFIED BECAUSE THEY REPRESENT THE MAXIMUM DISTANCE FOR EACH 


SEQ 0026 





TEST 11 


TEST 12 





VELOCITY LEVEL USED IN THE DRIVE. 


NOTE: TESTING WILL BE DONE BETWEEN UPPER AND LOWER CYLINDER 
LIMITS. CHOOSING A SINGLE SURFACE WILL LIMIT TESTING 
TO THAT SURFACE. 


FORWARD OSCILLATING SEEK TEST 


POSITION HEADS AT CYLINDER 0. 

DO OSCILLATING SEEK USING HEAD *. . ane FROM O TO 1700, O TO 

2 TO & O 1T0317T00, 0 TO 255 TO QO). AFTER EACH SEEK 

READ HEADER AND VERIFY POSITION. 

REPEAT TEST USING HEAD 1. 

NOTE: IF EITHER CYLINDER LIMIT IS SPECIFIED, THE TEST WILL 
SEEK BETWEEN UPPER AND LOWER LIMITS FOR EACH SURFACE. 
CHOOSING A SINGLE SURFACE WILL LIMIT TESTING TO THAT 
SURFACE. NOTE THAT LOOPING ON TEST THEN PROVIDES A 
FIXED DISTANCE SEEK LOOP. 

REVERSE OSCILLATING SEEK TEST 

POSITION HEADS AT CYLINDER 255. DO OSCILLATING SEEK US!NG 

HEAD 0. (SEEK FROM 255 TO 254 TO 255,255 TO 253 TO 

255,....255 TO 0 TO 255.) AFTER EACH SEEK READ HEADER AND 

VERIFY POSITION. 

REPEAT TEST USING HeAD 1. 

NOTE: IF EITHER CYLINDER LIMIT 1S SPECIFIED, THE TEST WILL 
SEEK BETWEEN UPPER AND LOWER LIMITS FOR EACH SURFACE. 
CHOOSING A SINGLE SURFACE WILL LIMIT TESTING TO THAT 
SURFACE. NOTE THAT LOOPING ON TEST THEN PROVIDES A 
FIXED DISTANCE SEEK LOOP 


SEEK TIMING 


POSITION HEADS AT CYLINDER O. 

DO 64 SEEKS FROM 0 TO 1 AND 1 TO 0, MEASURING THE SEEK TIME 
FOR EACH SEEK. AVERAGE THE SEEK TIMES (FORWARD AND REVERSE 
INDEPENDENTLY) AND REPORT. 


REPEAT ABOVE SEEKING BETWEEN CYLINDER 127 TO 128 AND 254 TO 
255. 


REPEAT ABOVE SEEKING BETWEEN CYLINDER O TO 127 AND 128 TO 256. 
REPEAT ABOVE SEEKING BETWEEN CYLINDER O AND 255. 


THE SEEK TIMES WILL BE REPORTED AS SHOWN BELON. THE TIME 
MEASURED 1S FROM START OF SEEK COMMAND UNTIL INTERRUPT IS 
RECEIVED. 


INNER MIDDLE OUTER EXPECTED 
1 CYL FWD x X X x 


1 CYL REV x X Xx Xx 


SEQ 0027 





Test 13 


TEST 14 


128 CYL FWO x x x 
128 CYL REV x x x 
256 CYL FWD x x 
256 CYL REV x x 


THE X INDICATES WHERE TIME WILL BE REPORTED. 


NOTE: THE ABOVE REPORT WILL BE PRINTED IN THE FIRST PASS FOR 
EACH DRIVE UNDER TEST IF MANUAL INTERVENTION TESTS 
WERE RUN. THE EXPECTED TIMES ARE FOR USER COMPARISON 
oe THE PROGRAM WILL NOT REPORT DEVIATION AS AN 


BASIC READ DATA TEST 
POSITION HEADS AT CYLINDER 255. 


DO READ DATA. HEAD 1. CHECK FOR ANY ERRORS AND REPORT. \F 
ERROR, READ SECTOR 1 THROUGH 19 UNTIL NO ERROR ON READ. 
REPORT ALL ERRORS BUT DO NOT INCREMENT ERROR COUNT. \F NONE 
CAN BE READ, SUCCESSFULLY, REPORT THAT FACTORY BAD SECTOR FILE 
ceed . READ, INCREMENT ERROR COUNT AND PROCEED WITH READ OF 


ON SECTOR WITH NO CRC ERROR. VERIFY DATA FORMAT (WORD O AND 1 
ARE NOT 0. WORD 2 AND 3 ARE O. LOCATE FIRST WORD OF ALL ONE'S 
a Mes WORD TO WORD 127 ARE ALL ONE'S.) STORE BAD SECTOR 
READ DATA, HEAD ONE. SECTOR 20. CHECK FOR ANY ERRORS AND 
REPORT. IF ERROR, READ SECTOR 21 THROUGH 39 UNTIL NO ERROR ON 
READ. REPORT ALL ERRORS BUT DO NOT INCREMENT ERROR COUNT. IF 
NONE CAN BE READ SUCCESSFULLY, REPORT THAT SOFTWARE BAD SECTOR 
FILES CANNOT BE READ, INCREMENT ERROR COUNT AND EXIT TEST. 


ON SECTOR WITH NO CRC ERROR, VERIFY DATA AS ABOVE. STORE BAD 
SECTOR DATA. 


NOTE: IF SURFACE O 1S SELECTED THIS TEST WILL BE BYPASSED. 
WRITE/READ DATA TEST (PART 1) 

POSITION HEADS AT CYLINDER 0 

WRITE PATTERN 1 ON HEAD 0. SECTOR 0. CHECK FOR ANY ERROR. 
READ HEAD 0. SECTOR 0. CHECK FOR CRC ERROR. COMPARE DATA. 
REPEAT FOR OTHER DATA PATTERNS (2 THROUGH 8). 

CHECK IF CYLINDER 0, TRACK 1, SECTOR O IS LISTED IN BAD SECTOR 
DATA. 1F NOT, REPEAT ABOVE TEST AT CYLINDER 0, TRACK 1, 
SECTOR 0. IF IT IS LISTED AS BAD. LOCATE FIRST SECTOR 0, 
TRACK 1 THAT 1S GOOD AND DO ABOVE TESTS 

NOTE: CYLINDER LIMITS ARE IGNORED, TESTING IS DONE AT 


CYLINDER 0. HOWEVER. CHOOSING A SINGLE SURFACE WILL 
LIMIT TESTING TO THAT SURFACE. 


SEQ 0028 


TEST 15 


NOTE: 


TEST 16 


TEST 17 


SPINDLE TIMING TEST 
POSITION HEADS TO CYLINDER O. 


DO WRITE DATA TO CYLINDER 0. HEAD 0. SECTOR O. WAIT FOR 
INTERRUPT. 


DO WRITE DATA TO CYLINDER 0, HEAD 0. SECTOR 0. START TIMING. 
WHEN INTERRUPT OCCURS. STOP TIMING. RESULT IS SPINDLE 
ROTATION TIME. 


REPEAT TEST 64 TIMES. REPORT THE AVERAGE AS SPINDLE ROTATION 
TIME. THE TIME REPORTED IS IN 100'S OR MICROSECONDS. 


THIS TEST WILL BE RUN ONLY IN THE FIRST PASS AND ONLY 
IF MANUAL INTERVENTION TESTS WERE RUN. 


WRITE/ZREAD TEST (PART 2) 


CC 1S CURRENT CYLINDER SELECTED FROM SET. 
LET SELECTED CYLINDER SET BE AS DEFINED IN PARAGRAPH 4. 3 


SEEK FORWARD TO CC. WRITE PATTERNS 1 THROUGH 8 REPEATED 5 
TIMES ON HEAD 0. READ/COMPARE ALL DATA. 


SEEK REVERSE TO “LOLIMIT". SEEK FORWARD TO CC. READ/COMPARE 
ALL DATA. SEEK FORWARD TO “HILIMIT". SEEK REVERSE TO CC. 
READ/COMPARE ALL DATA. REWRITE DATA PATTERNS 1 THROUGH 8 
REPEATED S TIMES ON HEAD 0. READ COMPARE ALL DATA. 


SEEK FORWARD TO “HILIMIT". SEEK REVERSE TO CC. READ/COMPARE 
ALL DATA. SEEK REVERSE TO “LOLIMIT". SEEK FORWARD TO CC. 
READ/COMPARE ALL DATA. 


REPEAT ABOVE TEST FOR HEAD 1. 
REPEAT ABOVE TESTS FOR ALL CYLINDERS IN SELECTED CYLINDER SET 


NOTE 1: IF ANY OF THE SECTORS IN THE SELECTED CYLINDER SET 
ARE LISTED AS BAD. THAT SECTOR WILL BE BYPASSED. 


NOTE 2: IF THE "USE ALL CYLINDERS" PARAMETER IS SPECIFIED AS 
“y", THE TEST WILL INCLUDE ALL CYLINDERS IN THE 
SELECTED PARAMETER SET. 


NOTE 3: IN THE FIRST PASS OF THE PROGRAM THIS TEST IS 
EXECUTED ON ONLY 6 OF THE CYLINDERS LISTED IN THE 
CYLINDER SET. THOSE USED WILL BE EVERY 8TH ENTRY IN 
THE TABLE. ON THE SECOND AND SUBSEQUENT PASSES ALL 
ENTRIES IN THE SELECTED CYLINDER SET ARE USED. 


NOTE 4: TESTING WILL BE DONE BETWEEN UPPER AND LOWER LIMITS. 
CYLINDERS IN THE CYLINDER SET BEYOND THESE LIMITS WILL 
NOT BE TESTED. CHOOSING A SINGLE SURFACE WILL LIMIT 
TESTING TO THAT SURFACE. 


WRITE LOCK ERROR AND DATA PROTECTION TEST 


SEQ 0029 


TEST 18 





E 
DO WRITE DATA PATTERN O AT SECTOR 0. READ DATA AND VERIFY. 


ASK OPERATOR TO WRITE LOCK DRIVE. DO GET STATUS LOOP UNTIL 
WRITE LOCK IS SET. IF NOT SET IN 30 SECONDS. ABORT THE TEST. 


WHEN WRITE LOCK IS SET, DO WRITE DATA PATTERN 1 AT SECTOR OQ. 
REPORT FAILURE IF ORIVE ERROR DOES NOT SET OR IF ANY OTHER 
ERROR SETS. CLEAR ERROR AND READ DATA AT SECTOR O. CHECK 
THAT DATA HAS NOT BEEN DISTURBED. 


REQUEST OPERATOR TO RESET WRITE LOCK. DO GET STATUS LOOP 
UNTIL WRITE LOCK IS RESET. IF NOT RESET IN 30 SECONDS, REPEAT 
THE REQUEST. 


NOTE: THIS TEST IS EXECUTED ONLY IF THE PROGRAM OPERATION 
MODE 2 IS SELECTED, MANUAL INTERVENTION TESTING IS 
REQUESTED. AND iS RUN IN FIRST PASS ONLY. 


ADJACENT CYLINDER INTERFERENCE TEST 


CC 1S CURRENT CYLINDER SELECTED FROM SET 
LET SELECTED CYLINDER SET BE AS DEFINED IN PARAGRAPH 4. 3. 
DATA PATTERN IS 155555. 


SEEK FORWARD TO CYLINDER CC WRITE PATTERN ON TRACK QO, ALL 
SECTORS. READ/COMPARE DATA. 


SEEK FORWARD TO “HILIMIT™. SEEK REVERSE TO CC-1. WRITE 
PATTERN. SEEK FOKWARD TO “HILIMIT”. SEEK REVERSE TO CC. 
WRITE PATTERN. (THIS HAS BRACKETED ORIGINAL WRITE WITH WRITES 
IN ADJACENT CYLINDERS. NOTE ADJACENT CYLINDERS WERE WRITTEN 
AFTER HEADS CAME ON CYLINDER IN REVERSE DIRECTION WHICH IS 
OPPOSITE OF CENTER CYLINDER. ) 


SEEK REVERSE TO “LOLIMIT”. SEEK FORWARD TO CC. READ/COMPARE 
DATA FROM ALL SECTORS. ANY ERRORS (READ OR COMPARE) ARE 
ATTRIBUTED TO ADJACENT CYLINDER INTERFERENCE. 


SEEK FORWARD TO “HILIMIT”. SEEK REVERSE TO CC. WRITE DATA 
PATTERN. SEEK REVERSE TO “LOLIMIT”. SEEK FORWARD TO CC-1. 
WRITE PATTERN. SEEK REVERSE TO “LOLIMIT", SEEK FORWARD TO 
CC+1, WRITE PATTERN. SEEK FORWARD TO “HILIMIT". SEEK REVERSE 
TO CC. READ/COMPARE DATA iN ALL SECTORS. ANY ERRORS (READ OR 
COMPARE) ARE ATTRIBUTED TO ADJACENT CYLINDER INTERFERENCE. 


REPEAT ABOVE TESTS ON HEAD 1. 


NOTE 1: IF ANY SECTOR ON A SELECTED CYLINDER 1S LISTED BAD, 
THAT SECTOR WILL BE BYPASSED. 


NOTE 2: IF THE "USE ALL CYLINDERS” PARAMETER IS SPECIFIED AS 
"y", THE TEST WILL INCLUDE ALL CYLINDERS (EXCEPT 0 AND 
255) IN THE SELECTED PARAMETER SET. 


NOTE 3: IN THE FIRST PASS OF THE PROGRAM THIS TEST IS 
EXECUTED ON ONLY 3 OF THE CYLINDERS LISTED IN THE 
CYLINDER SET. THOSE USED WILL BE THE FIRST, 
TWENTYFIRST. AND FORTYFIRST ENTRIES IN THE TABLE. ON 


SEQ 0030 


TEST 19 


F US 
SECOND AND SUBSEQUENT PASSES EVERY FOURTH CYLINDER SET 
ENTRY WILL BE TESTED. 


NOTE 4: TESTING WILL BE DONE BETWEEN UPPER AND LOWER LIMITS. 
CYLINDERS IN THE CYLINDER SET BEYONG THESE LIMITS WILL 
NOT BE TESTED. CHOOSING A SINGLE SURFACE WILL LIMIT 
TESTING TO THAT SURFACE. 


OVERWRITE TEST 


CC 1S CURRENT CYLINDER SELECTED FROM SET 
SELECTED CYLINDER SET DEFINED IN PARAGRAPH 4. 3. 
PATTERN A = 125252 

PATTERN B = 000000 


SEEK FORWARD TO CC. WRITE DATA OF PATTERN A IN ALL SECTORS, 
HEAD 0. READ/COMPARE DATA. 


SEEK FORWARD TO “HILIMIT". SEEK REVERSE TO CC. WRITE PATTERN 
B. SEEK REVERSE TO "“LOLIMIT", SEEK FORWARD TO CC, 
READ/COMPARE DATA. 


SEEK FORWARD TO “HILIMIT". SEEK REVERSE TO CC. WRITE DATA 
PATTERN A. READ/COMPARE DATA. SEEK REVERSE TO “LOLIMIT", 
SEEK FORWARD TO CC. WRITE PATTERN 8B. SEEK FORWARD TO 
“HILIMIT" SEEK REVERSE TO CC. READ/COMPARE DATA 


ANY FRILURES (READ OR COMPARE) ARE ATTRIBUTED TO OVERWRITE 
PROBLEM. 


REPEAT ABOVE TESTS ON HEAD 1. 


NOTE 1: IF ANY SECTOR ON A SELECTED CYLINDER IS LISTED AS BAD, 
THAT SECTOR WILL BE BYPASSED 


NOTE 2: IF THE “USE ALL CYLINDERS" PARAMETER 1S SPECIFIED AS 
"y", THE TEST WILL INCLUDE ALL CYLINDERS IN THE 
SELECTED PARAMETER SET. 


NOTE 3: IN THE FIRST PASS OF THE PROGRAM THIS TEST IS 
EXECUTED ON ONLY 3 OF THE CYLINDERS LISTED IN THE 
CYLINDER SET. THOSE USED WILL BE THE _ FIRST, 
TWENTYFIRST. AND FORTYFIRST ENTRIES IN THE TABLE. ON 
SECOND AND SUBSEQUENT PASSES EVERY FOURTH CYLINDER SET 
ENTRY WILL BE TESTED. 


NOTE 4: TESTING WILL BE DONE BETWEEN UPPER AND LOWER LIMITS. 
CYLINDERS IN THE CYLINDER SET BEYOND THESe LIMITS WILL 
NOT BE TESTED. CHOOSING A SINGLE SURFACE WILL LIMIT 
TESTING TO THAT SURFACE 


7.0 PROGRAM LISTING 


SEQ 0031 





MAIN. MACY11 3001046 


DZRLCA. P11 


O4-NOV-7 


a 


O4-NOV-77 13: 30 
11: 51 TABLE OF CONTENTS 


ZDIFFERENCE OF 1 SEEK (PART 1) 
XXDIFFERENCE OF 1 SEEK (PART 2) 
XXOUTER GUARD BAND DETECTION 
XXINCREMENTAL FORWARD SEEK HERD 0 
XXINCREMENTAL REVERSE SEEK HEAD 0 
XXINCREMENTAL FORWARD SEEK HEAD 1 
XXINNER GUARD BAND DETECTION 
XXINCREMENTAL REVERSE SEEK HEAD 1 
XXSEEK TESTS 

XXFORWARD OSCILLATING SEEK 
XEREVERSE OSCILLATING SEEK 

XXSEEK TIMING 

XXBASIC READ DATA (BAD SECTOR FILE) 
XXWRITE/READ DATA (PART 1) 
XXSPINDLE TIMING TEST 

KXWRITE/READ DATA (PART 2) 

XXWRITE LOCK ERROR AND DATA PROTECTION 
XXADJACENT CYLINDER INTERFERENCE 
XKXOVERWRITE 


SEQ 0032 





MACY11 30(1046) 


O04-NOV-77 


PTI O4-NOV-77 13:13 


002000 


002000 
002000 


002102 


002000 


000001 
000001 
000001 
000000 
000000 


040176 


000000 
000001 


13: 30 PAGE 83 


.NLIST CNO. MD, ME 
oe ABS. AMA 


POINTER BGNSW, BGNSF T, BGNOU 


BGNMOD MOHEOR 


HEADER OZRLO.A,0 
A a 


ENDMOD 


.ASCII ada 
.ASCII d2a 
ASCII Ra 
.ASCII ala 
.ASCII ada 
.BYTE 0 
.BYTE 0 
.BYTE O 

. ASCII a@Aad 
-ASCII a0e 
.BYTE CSREVISION 
.BYTE CSEDIT 
.WORD O 

. WORD 

. WORD 

. WORD 

.WORD O 
.WORD 0 
.WORD O 
.WORD OQ 
-WORD O 
.WORD 0 

. WORD LSDISPATCH 
WORD LSINIT 
WORD LSCLEAN 
WORD LSHARD 
WORD LSSOFT 
WORD LSOVTYP 
WORD 0 

WORD LSHW 
WORD LSSW 
WORD LSOR 
WORD LSDRST 
WORD O 

WORD 0 

WORD LS$DU 
.WORD OQ 

WORD LSLAST 
DEVREG 

WORD 0 

BLKW 








OUTERR MACY11 30(1046) 
DZRLCA. PT1 


2828 
(3) 


002104 


04-NOV-77 
O4-NOV-77 13:13 


002104 Seiad 036460 


002112 
002112 


02112 


100000 
040000 
026000 
010006 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000091 


001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 


13:30 PAGE 83-1 


000 


, 
, 


> EVENT FLAG DEFINITIONS 


DEVTYP <RLO1> 
.ASCiZ2 @RLOIA 
_ EVEN 


COPYRIGHT (C) 1977 

+; THIS SOFTWARE IS FURNISHED UNDER LICENSE FOR USE ONLY 
ON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH 
>THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS 

+ SOFTWARE. OR ANY COPIES THEREOF, MAY NOT BE PROVIDED 
7OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON EXCEPT 
;FOR USE ON SUCH SYSTEM, AND TO ONE WHO AGREES TO THESE 
+LICENSE TERMS. TITLE TO OWNERSHIP OF THE SOFTWARE SHALL 
AT ALL TIMES REMAIN IN DEC 


[THE INFORMATION IN THIS DOCUMENT 1S SUBJECT TO CHANGE 
[WITHOUT NOTICE AND SHALL NOT BE CONSTRUED AS A COMMITMENT 
“BY DIGITAL EQUIPMENT CORPORATION. 


; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY 
OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC 


BGNMOD GLBEQAT 
EQUALS 

; BIT DIFINITIONS 
100000 


nnn nnn 
tN 
oO 
Oo 


oo to te te ee oe 
o 
~ 
oO 
wm 





SEQ 0034 


el 


OUTERR MACY11 30(1046) 
DZRLOUA. PTI 


O4-NOV-77 13:30 PAGE 83-2 


O4-NOV-77 13:13 


000040 
000037 
000036 
000035 
0c0034 


000020 
000017 
000016 
00c015 
000014 
000013 
000012 
000011 
000010 
000007 
000006 
coo00s 
000004 
000003 
000002 
000001 


006340 
000300 
000240 
000200 
000140 
000100 
000040 
000000 


000000 
000002 
000004 
000006 
000010 


000000 
000002 
000004 
000006 
000010 
000012 


000001 
000002 
000004 


> EF32: EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 
+ EF16: EFO1 AVAILABLE FOR PROGRAM USE 


EF. START== 32. ; STAPT COMMAND WAS ISSUED 
EF. RESTART== 31. + RESTART COMMAND WAS ISSUED 
EF. CONTINUE== 30. + CONTINUE COMMAND WAS !SSUED 
; + A NEW PASS HAS BEEN STARTED 
+ A POWER-FAIL/POWER-UP OCCURRED 


OK NWLWNOD 


m 

o 
—NWEUMONDWOO-NWEUO 
— PD by SUT OY N00 0 we we ot 


> PRIORITY LEVEL DEFINITIONS 


PRIO7== 340 
PRIO6== 300 
PRIOS== 240 
PRIO4== 200 
PRIO3== 140 
PRIO2Z== 100 
PRIOi== 4O 
PRIOO== 0 
; OFFSETS FOR HARDWARE P-TABLE 
CSR =0 >BUS ADDRESS 
VECT s ; VECTOR ADDRESS 
PRIOR s ;PRIORITY 
ORSB = sDRIVE SELECT BIT 
CNT =10 >CONTROLLER TYPE 
OFFSET FOR SOFTWARE P-TABLE 
MISWI =0 ; SOFTWARE PARAMETERS SWITCHES 
LOLIM =2 >;CYLINDER LOWER LIMIT 
HILIM = =4 ; CYLINDER HIGH LIMIT 
HEAD =6 eee — FOR RUNNING TESTS 
ERLIM =10 7 ERROR LIM 
DOCLIM 212 > DATA chepeat ERROR LIMIT 
; BIT ASSIGNMENT FOR SOFTWARE P-TABLE SWITCHES 
ALLCYL =B1TOO ;USE ALL CYLINDERS 
ALLSEC =BITOI : USE ALL SECTORS 
DRSELT =BITOZ2 ;EXECUTE DRIVE SELECT TEST 


SEQ 0035 


OUTERR MACY11 30(1046) 


DZRLCA. PTI 


O4-NOV-77 


000010 
000020 


100000 


000102 
000104 
000106 
000110 
000112 
000114 
000116 
000100 


007777 
000002 
000001 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 
003760 


000001 
000002 
000004 
000010 


000000 


000006 


000000 
100000 
040000 
020000 
010000 
010000 


O4-NOV-77 
13:13 


13:30 PAGE 


HDAL | GN 
AUTOSZ 
HEADLM 
HICYL 
LOCYL 
MITEST 


COMP OP 
HDRCMP 
DATACMP 
CYLUP 

ULOAD 

INOUTS 
OUTINS 
FOLWRT 
REVSKS 
FWOSKS 
REVSKO 
FWOSKO 
BADADD 
SEEKOP 
RORWOP 
RELOWT 
HOR4O 

MQUALS 


TOSLOW 
NOIRPT 
CONHNG 
NOCLR 


RLCS 
RLBA 
RLDA 
RLMP 


RLCSR 

ANYERR 
DRVERR 
NXMERR 
DLTERR 
HNFERR 


83-3 

=BITO3 s;EXECUTE HEAD ALIGNMENT TEST 

=B1TO4 ;AUTO SIZE FOR DRIVE-DROP IF NO RESPONSE 

=B1T12 ;HEAD LIMIT SPECIFIED FLAG 

=BITi3 HI LIMIT SPECIFIED FLAG 

=BIT14 *+LO LIMIT SPECIFIED 

=BIT15 ; EXECUTE MANUAL INTERVENTION TESTS 

SUBSYSTEM FUNCTIONS 

=102 WRITE CHECK 

=104 ;GET STATUS 

=106 + SEEK 

=110 ;READ HEADER 

2112 ;WRITE DATA 

=114 +READ DATA 

=116 READ DATA, IGNORE HEADERS 

=100 +NO OPERATION 

OPERATION FLAGS 

=7777 COMPOSITE OPERATION FLAGS 

=B1TO1 ;HEADER COMPARE OPERATION 

=B1TOO ;DATA COMPARE OPERATION 

=B1T02 CYCLE UP OPERATION 

=BITO3 UNLOAD OPERATION 

=B1TO4 ; IN-OUT SEEK OPERATION 

=B1TOS ;OUT-IN SEEK OPERATION 

=B1T06 ;FOLLOWING WRITE OPERATION 

=B1T07 REV SEEK SEQ (ADJ INTERFERENCE) 

=B1TO8 +FWO SEEK SEQ (ADJ INTERFERENCE) 

=B1TO9 REV SEEK SEQ (OVERWRITE) 

=B1IT10 ;FWO SEEK SEQ (OVERWRITE) 

=BITi1 BAD DISK ADDRESS 

=BIT12 +SEEK OPERATION 

=BIT13 +READ OR WRITE OPERATION 

=BITi4 +RELOAD WAIT 

=BIT15 +40 HEADER OPERATION 

SOUTINS! INOUTS!FOLWRT!REVSKS !FWOSKS !REVSKO!FWOSKO 
*MESSAGE QUALIFIER BITS 

ERROR FLAGS FROM SUBROUTINES 

=B1TOO OPERATION TOOK TO LONG 

=BITO1 ;NO INTERRUPT FROM OPERATION 

=B1T02 + CONTROLLER HUNG 

=BITO3 +BAD CONTROLLER CLEAR 


s CONTROL AND STATUS REGISTER 
s +BUS ADDRESS REGISTER 

= DISK ADDRESS REGISTER 

= ; MULTI-PURPOSE REGISTER 


REGISTER BIT DEFINITIONS an CONTROL STATUS REGISTER 


=0 ONTROL AND STATUS REGISTER 
=100000 [ANY ERROR BIT 

=40000 DRIVE ERROR BiT 

=20000 ;NON-EXISTANT MEMORY ERROP 
=10000 DATA LATE ERROR 

=10000 *HEADER NOT FOUND ERROR 


SEQ 0036 


OUTERR MACY11 30(1046) O4-NOV-77 
DZRLCA. PT1 


002112 
002112 


002112 
002114 
002116 
002120 


O4-NOV-77 13:13 


004000 
004000 
002000 
001400 
000200 
000100 
000060 
0c0001 


000077 
000100 
077600 


000001 
000004 
000020 
077600 


000003 
000010 


017777 
160000 


077600 
000077 
000100 


000007 


100000 


000000 
004572 
004622 
004534 


13: 30 PAGE 


DCKERR 


DROYMSK 


SAMSK 
HSMSK 
CAMSK 


MBSETO 
DIRBIT 
HDSEL 

DIRMSK 


GETSTAT 
DRSET 


WCMSK 
WCRNG 


HOCYL 
HDSEC 
HDHSEL 


STAMSK 
BHSTAT 
HOSTAT 
COSTAT 
HSSTAT 
DSESTAT 
VCSTAT 
WGESTAT 
SPOSTAT 
STOSTAT 
WLSTAT 
HCESTAT 
WDESTAT 


ENDMOD 
BGNMOD 


OPMSGS: 


83-4 
=4000 ;DATA CHECK ERROR 
=4000 +HEADER CHECK ERROR 
=2000 OPERATION INCOMPLETE ERROR 
21400 DRIVE SELECT MASK 
=200 + CONTROLLER READY MASK 
=100 ; INTERRUPT ENABLE MASK 
=60 +BUS ADDRESS UPPER MASK 
=1 DRIVE READY MASK 
REGISTER BIT DEFINITIONS - DISK ADDRESS FOR DATA XFER 
=77 SECTOR ADDRESS MASK 
=100 ; HEAD SELECT MASK 
=77600 CYLINDER ADDRESS MASK 
REGISTER BIT DEFINITIONS - DISK ADDRESS FOR SEEK 
=1 ;MUST BE SET. BIT O 

=4 DIRECTION BIT 
=20 ;+HEAD SELECT BIT 
=77600 > CYLINDER DIFFERENCE MASK 
REGISTER BIT DEFINITIONS - DISK ADDRESS ge GET STATUS 
=3 GET STATUS SETU 

=10 ;DRIVE RESET MASK 

REGISTER BIT DEFINITIONS - MP FOR DATA XFER 

217777 *WORD COUNT MASK 

=160000 ;WORD COUNT RANGE MASK 
REGISTER BIT DEFINITIONS - MP FOR READ HEADER 
=077600 CYLINDER MASK 

=77 SECTOR MASK 
=100 *HEAD SELECT MASK 
REGISTER BIT DEFINITIONS - MP FOR GET STATUS 

=7 ; STATE MASK 
=10 BRUSH HOME STATUS 
=20 +HEADS OUT STATUS 
=40 ; COVER OPEN STATUS 
=100 *HEAD SELECT STATUS 

=400 ;DRIVE SELECT ERROR STATUS 
=1000 + VOLUME CHECK STATUS 

=2000 *WRITE GATE ERROR STATUS 
=4000 + SPIN ERROR STATUS 

=10000 +SEEK TIMEOUT ERROR STATUS 
=20000 *WRITE LOCK STATUS 

=40000 *HEAD CURRENT ERROR STATUS 
= 100000 +WRITE DATA ERROR STATUS 
GLBDAT 

TABLE OF OPERATION MESSAGES 
.WORD O sFILLER 

.WORD MURCHK " HESSAGE FOR WRITE CHECK 
.WORD MGTSTA ; GET STATUS 
.WORD MSEEK ; SEEK 


SEQ 0037 


OUTERR 
DZRLCA 


. PTA 


MACY11 30(1046) 
O4-NOV-77 13:13 


002122 
002124 
002126 
002130 
002132 
002134 
002136 
002140 
002142 
002144 
002146 
002150 
002152 
002154 
002156 
002160 
002162 


002164 
002166 
002170 
002172 
002174 
002176 
002200 
002202 
002204 
002206 
002210 
002212 
002214 
002216 
002220 
002222 


002224 
002226 
002230 
002232 
002234 
002236 
002240 
002242 
002244 
002246 


002250 
002252 


002262 


004555 
004606 
004542 
004717 


004703 


007344 
007455 
007704 
007656 
007641 
007622 
007731 
000000 
007605 
007567 
000000 
007551 
007516 
007534 
000000 
007466 


004256 
004260 


004530 
004532 


000000 
000000 
000000 
000000 
000000 
000000 


O4-NOV-77 


13:30 PAGE 83-5 


RESTBL: 


PATTBL: 


SUBSTK: 


. WOR 
.W 


aoe 


MREADH 
MWR ITE 


M4OHOR 


SEQ 0038 


READ HEADER 
WRITE DATA 
READ DATA 
WITH RESET 
WITH DATA COMPARE 
WITH HEADER COMPARE 
LOAD HEADS 
UNLOAD HEADS 
IN-OUT SEQ 
OUT-IN SEQ 
FOLLOWING WRITE 
REV SEEK 
FWO SEEK 
REV SEEK 
FWO SEEK 
BAD DISK ADD FOR WRITE 
4O HEADER OPERATION 


ee ee ee ee ee ee ee ee ek ee ek ee ee 


TABLE OF Bo - NAME emer ADDRESSES 


PATTERN 


MDRERR 
MNEERR 
MFLERR 
MHDERR 
MOPERR 
“tienes 


MUDERR 
— 


MSTERR 
MSPERR 
MWGERR 
0 

MDSERR 


wa 


SUBROUTINE CALLING STACK 
R 


oaoo°0o 


TROLLER ERROR 
sDRIVE ERROR 
;NON-EXISTANT MEMORY ERROR 
HEADER NOT FOUND-DATA LATE 
HEADER OR DATA ERROR 
; OPERATION INCOMPLETE 
+NO DRIVE STATUS AVAILABLE 


*WRITE DATA ERROR 
HEAD CURRENT ERROR 


;SEEK TIMEOUT ERROR 
SPINDLE ERROR 
+WRITE GATE ERROR 


DRIVE SELECT ERROR 


+STACK 1S 12 WORDS LONG 


OUTERR 


DZRLCA. 


PTi 


MACY11 30(1046) 
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002264 
002266 
002270 
002272 


002274 
002276 
002300 
002302 
002304 
002306 
002310 
002312 
002314 
002316 
002320 


002322 


002342 
002343 
002344 
002345 
002346 


000000 
000000 
000000 
000000 


000002 


000377 


000010 


O4-NOV-77 


13:30 PAGE 83-6 


.WORD OQ 
.WORD QO 
.WORD O 
WORD 0 
T25TBL: .WORD 2 + TABLE OF DIFFERENCES TO BE USED 
.WORD 6 + IN TEST 25 
-WORD 9. 
.WORD = 12. 
~WORD = 17. 
WORD 22. 
WORD 27 
WORD 34 
WORD 41 
WORD 128 
WORD 255 
; TABLE TO BE USED IN TEST 33 AND 34 TO BUILD AND STORE THE 
; CYLINDERS TO BE USED IN THE TEST. 
T33(BL: .BLKW 10 
CVLTRL: .OYTE 2 ; TABLE OF DEFAULT CYLINDERS 
OV VE. -#, 
BYTE 14 
BYTE 20 
BYTE 27 
BYTE 33 
BYTE 38 
BYTE 45 
BYTE 52 
BYTE 58 
BYTE 65 
BYTE 72 
BYTE 77 
BYTE 84 
BYTE 91 
BYTE 97 
BYTE 102 
BYTE 108 
BYTE 113 
BYTE 120 
BYTE 127 
BYTE 134 
BYTE 139 
BYTE 146 
BYTE 152 
BYTE 157 
BYTE 164 
BYTE 170 
BYTE 177 
BYTE 184 
BYTE 189 
BYTE 195 
BYTE 202 
BYTE 207 
BYTE 214 


SEQ 0039 


OUTERR MACY11 30(1046) hat pions 13:30 PAGE 83-7 


DZRLOA. PT1 O4-NOV-77 SEQ 0040 
3093 002405 334 BYTE 220. 
3094 002406 343 BYTE 227. 
3095 002407 352 .BYTE 234. 
3096 002410 361 .BYTE 241. 
3097 002411 367 BYTE 247. 
3098 002412 375 BYTE 253. 
ora 002413 000 .BYTE 0 
tee 002414 000000 SSINDX: .WORD 0 + SUBROUTINE STACK INDEX POINTER 
3103 ; OPERATIONAL FLAGS 
3104 002416 000000 OPFLAG: . WORD ; OPERATION FLAGS 
3105 002420 o0C000 DONE: . WORD ; OPERATION COMPLETE FLAG 
3106 002422 000000 HADONE: . WORD HEAD ALIGNMENT DONE FLAG 
3107 002424 000000 ERHEAD: . WORD ADDRESS OF ERROR HEADER 
3108 002426 000000 MORECE: . WORD ;MORE THAN 1 COMPARE ERROR 
3109 002430 000000 ERRSWI: . WORD ERROR RETURN SWITCH 
3110 002432 000000 BSFLAG: . WORD +BAD SECTOR FLAGS 
3111 002434 000000 WRTSWI: . WORD +WRITE SWITCH 
abe 002436 000000 TBLSTR: . WORD + TABLE STORAGE 
11 
3114 002440 000000 RLBAS: . WORD *RL11 BASE ADDRESS 
3115 002442 000000 RLVEC: . WORD +RL11 VECTOR ADDRESS 
thy 002444 000000 RLORV: . WORD ;ORIVE NUMBER UNDER TEST 
11 


CONTROLLER REGISTER STORAGE 
BEFORE OPERATION 


3118 002446 000000 L 
3119 002450 000000 L 
3120 002452 000000 L 
3121 002454 000000 L. MP: : 
3122 002456 000000 ¥. CS: . WORD CONTROLLER REGISTER STORAGE 
3123 002460 000000 ; > AFTER OPERATION 

T 


3124 002462 000000 


Oo O00 AO000000 000 [00000000 


3125 002464 MP: 
3126 002464 000000 HOWRD1: . WORD +HERDER WORD STORAGE 
3127 002466 000000 HDWRD2: . WORD 
oe 002470 000000 HOWRD3: . WORD 
1 
hey 002472 o00000 T. STAT: . WORD DRIVE STATE STORAGE 
3131 
3132 002474 000000 RESPARM: -WORD OQ ;PARAM BLOCK FOR REASON REPORT 
3133 002476 000000 .WORD QO 
3134 002500 000000 .WORD O 
3135 002502 000000 .WORD OQ 
te 002504 000000 .WORD O 
1 
3138 002506 000000 DRVCNT: .WORD OQ DRIVE COUNT FOR DRIVES UNDER TEST 
3139 002510 000000 DIFAUG: .WORD OQ ;DIFFERENCE AUGMENT FOR SEEK 
3140 002512 000000 OLOCYL: .WORD OQ OLD CYLINDER 
3141 002514 000000 NEWCYL: .WORD 0 +NEW CYLINDER 
3142 002516 000000 CURCYL: .WORD O + CURRENT CYLINDER 
3143 002520 000000 DESDIF: .WORD O DESIRED DIFFERENCE 
3144 002522 000000 DESSGN: .WORD 0 DESIRED SIGN 
3145 002524 000000 DE SHD: WORD QO DESIRED HEAD 
3146 002526 000000 DESSEC: .WORD 0 DESIRED SECTOR 
3147 002530 000000 MPO: .WORD OQ ; TEMPORARY STORAGE 
3148 002532 000000 TEMP1: .WORD O ; TEMPORARY STARAGE 


OUTERR 
DZRLCA 


MACY11 30(1046) 
PTA 04-NOV-77 


002534 
002536 
002540 
002542 
002544 
002546 
002550 


002552 


002630 


002632 
002634 
002636 
002640 
002642 


002644 
002646 
002650 
002652 
002654 
002656 
002657 
002660 
002662 


002664 


002666 
003062 


000000 
000000 
000000 
000000 
000000 
000000 
000000 


000000 
000000 
000000 
o0co00 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


000226 
001046 
001750 
000372 
000004 


000000 
000090 


000000 
000000 
000000 


000076 
000076 


O4-NOV-77 13:30 PAGE 83-8 
13: 13 


ARMIDU: . 
EXOCYL: . 


ERRVEC: 


WORD 
MISCELLANEOUS COUNTERS 


PASCNT: . WORD 


COUNT: 


ERRCNT: . 
PASNUM: . 
PSETNM: . 
LOCERR: . 
NOERCT: . 
TRPFLG: . 
PWRFLG: . 


BSFVAL: 


SBSF IL: 
FBSF IL: 


. BLKW 
. BLKW 


ST 
0 


RAGE 


OMODDVDMOOOVVOOCOCOCOCOCOCOCOCOCOCOC00OSO AF2000000°O 


ooo0oo0oo°0o0o 


76 
76 


; TEMPORARY STORAGE 
; TEMPORARY STORAGE 
+ TEMPORARY STORAGE 
+ TEMPORARY STORAGE 
+ TEMPORARY STORAGE 
+ TEMPORARY STORAGE 
+ TEMPORARY STORAGE 


+ ONE 
; ONE 
; ONE 
; ONE 
; ONE 
; ONE 
128 
128 
128 
128 
; 256 
; 256 


, 


CYLINDER 
UPPER 
CYLINDER 
UPPER 
CYLINDER 
UPPER 
CYLINDER 
UPPER 
CYLINDER 
UPPER 
CYLINDER 
UPPER 
CYLINDER 
UPPER 
CYLINDER 
UPPER 
CYLINDER 
UPPER 
CYLINDER 
UPPER 
CYLINDER 
UPPER 
CYLINDER 
UPPER 


FORWARD 
FORWARD 
FORWARD 
REVERSE 
REVERSE 
REVERSE 
FORWARD 
FORWARD 
REVERSE 
REVERSE 
FORWARD 
REVERSE 


INNER 
MIDOLE 
OUTER 
INNER 
MIDOLE 
OUTER 
INNER 
OUTER 
INNER 
OUTER 


sEXPECTED TIME ONE CYLINDER 
*EXPECTED TIME 128 CYLINDER 
7; EXPECTED TIME 256 CYLINDER 
> EXPECTED ROTATION TIME 


ERROR VECTOR USED WHEN AUTO SIZING 


PASS COUNTER (LOCAL TO A TEST) 
+A COUNTER (LOCAL TO A TEST) 


ERROR COUNTER FOR PROGRAM 
+PASS NUMBER FOR PROGRAM 


; COUNTER FOR PARAMETER SET NUMBER IN USE 


;LOCAL ERROR COUNTER 


+ INHIBIT ERROR COUNTING FLAG 


;HARDWAPE TRAP OCCURANCE 
POWER FAILURE OCCURANCE 


BAD SECTOR TABLES AND POINTERS 
WORD O 


>BAD SECTORS FILES VALID FLAG 


+ SOFTWARE BAD SECTOR FILE 
FACTORY BAD SECTOR FILE 


SEQ 0041 


OUTERR 


DZRLCA. 


MACY11 30(1046) 


PTi 


003256 
003656 


004256 
004260 
004262 
004264 
004266 
004270 
004272 
004274 
004276 
004300 
004302 
004 304 
004 306 
004310 
004312 
004314 
004316 


004320 
004322 


004 354 


004414 
004416 


000200 
000200 


000000 
177772 
177777 
177777 
052525 
052525 
052525 
177777 
177777 
052525 
052525 
177777 
052525 
177252 
177252 
172765 
172765 


000003 
000000 
000000 
177777 
177777 
177777 
000000 
006000 
177777 
177777 
000000 
177777 
000000 
177777 
000000 
177777 


025252 
052525 
052525 
125252 
125252 
125252 
052525 
052525 
125252 
125252 
052525 
125252 
052525 
125252 
052525 
125252 


O4-NOV-77 


O4-NOV-77 13:13 


13:30 PAGE 83-9 


BUFF: 
OBUFF: 


PATI: 
PAT2: 


PATS: 


PATH: 


172765 


000003 
000000 
000000 
177777 
177777 
177777 
oo0000 
000000 
177777 
177777 
000000 
177777 
000000 
177777 
000000 
177777 


025252 
052525 
052525 
125252 
125252 
125252 
052525 
052525 
125252 
125252 
052525 
125252 
052525 
125252 
052525 
125252 


; INPUT BUFFER 
; OUTPUT BUFFER 


;PATTERN 1 (ALL ZEROS) 


SEQ 0042 


OUTERR 


DZRLCA. 


MACY11 30(1046) 


O04-NOV-77 


PT1 O4-NOV-77 13:13 


004420 
004422 
004424 


004426 


004464 
004466 


004470 
004472 
004474 
004476 
004500 
004502 
004504 
004506 
004510 
004512 
004514 
004516 
004520 
004527 
004524 
004526 


004530 
004532 
004534 
004534 


155555 
133333 
066666 


121105 
150442 
064221 
132110 
055044 
026442 
013211 
105504 
042642 
021321 
110550 
044264 
022132 
011055 
104426 
042213 


177777 


045513 
122645 
151322 
064551 
132264 
055132 
026455 
113226 
045513 
122645 
151322 
064551 
132264 
055132 
026455 
113226 


125252 
155555 


042523 
042522 


045505 


051117 


000040 
042040 
020104 
020105 
020105 
052123 
042040 
020110 
032040 


PATS: 


PAT6: 


PAT?: 
PATS: 


PATS: 
PATIO: 
ENDMOD 
BGNNOD 


MSEEK: 
MREAD: 


MREADH: 
MWRCHK: 
MWR I TE: 
MGTSTA: 
MDATCP: 
MHORCP: 
M4OHDR: 


13:30 PAGE 83-10 


WORD 


. WORD 
. WORD 


GLBTXT 


. ASCIZ 
. ASCIZ 


. ASCIZ 
. ASCIZ 
. ASCIZ 
. ASCIZ 
. ASCIZ 
. ASCIZ 
. ASCIZ 


155555 
133333 
066666 


121105 
150442 
064221 
132110 
055044 
026442 
013211 
105504 
042642 
021321 
110550 
044264 
022132 
011055 
104426 
042213 


177777 


045513 
122645 
151322 
064551 
132264 
055132 
026455 
113226 
045513 
122645 
151322 
064551 
132264 
055132 
026455 
113226 


125252 
155555 


“SEEK 7 

ZREAD DATA 7 

7READ HEADER 7 
7WRITE CHECK/ 

7WRITE DATA 7 

/GET STATUS 7 

/WITH DATA COMPARE 7 
7WITH HOR COMPARE / 
7FOR 4O HDRS/ 


SEQ 0043 


OUTERR 


DZRLOA. 


MACY11 30(1046) 


PT1 


004717 
004733 
004747 
004763 
004774 
005004 
005025 
005050 
005074 
005127 
005162 
005216 
005252 
005273 
005323 
005350 
005412 
005423 
005430 
005463 
005523 


006520 


042523 
050123 


052111 
042520 
051505 
046116 
042040 
020114 
046117 
020114 
020112 
045104 
043040 
051040 
041040 
047101 
042101 
046440 
020123 
053122 
053111 
053122 
041514 
040502 
042114 
050115 
020120 
042040 
051117 
052116 
020111 
044440 
052116 
051122 
046117 
050130 
042524 


O43111 
020124 
020103 
020103 
020103 
020116 
020103 
045505 
042127 
020126 
042505 
051501 
052122 
047111 
027524 
052122 
045104 
051105 
045505 
047111 


020110 


052123 
020106 


041440 
051127 
052040 
046104 


MWRSET: . 


MOPER: 


P2T13E: 
P2TI4E: 
P2T15E: 
P2T16E: 


P2T18E: 
P2T19E: 
SKTMES: 


O4-NOV-77 13:30 PAGE 83-11 
O4-NOV-77 13:13 


: , ASCI 
ASC 
 ASCI 


 ASCI 


: , ASCI 


: , ASCI 
: | ASCI 


: ASC 
: . ASCI 
: . ASCI 


: . ASCI 
: . ASCI 
. ASCI 
. ASCI 
. ASCI 
. ASCI 
P2T17E: . 
. ASCI 
. ASCI 
_ ASCI 
SRTMES: . 


D 
“ 
te) 
NNNNNNNNNNNNNNNNNNNN ONNNN NN NNNNNNNNNNNNNNNNNNN NNNNNNS 


WITH RESET / 
/OPERATION: 7 
/RESULT: / 
7UNLD DRV/ 


7ADJ CYL WRTTN AFTER FWD SK/ 

7SK FWD. WRT - SK REV. OVERWRT/ 

7SK REV, WRT - SK FWD, OVERWRT/ 

7ON BAD SEC FILES/ 

7CAN'T GET BAD SEC FILES/ 

/BAD SEC FILE FMT ERR/ 

7TO MANY BAD SEC FOR PROG CAPACITY/ 
7BUS ADD=/ 

ZORV=/ 

/ORIVE UNAVAILABLE FOR TEST/ 

ZORV DID NOT REC'R FROM PWR FAIL/ 
/RLCS/ 
/RLBA/ 
/RLDAZ 
ZRLMP/ 
7OP INIT 
7OP DONE 
ZWORD 7 
.ASCIZ ZINTRPT TO LATE/ 

7OP| SET-NO DRV RESPONSE/ 

7NO INTRPT ON CMND COMPLETE/ 
.ASCIZ /CNTLR HUNG (NO RDY)/ 
ZERR DID NOT CLR/ 

7VOL CHK NOT RSET/ 

7UNXPCTED ERR/Z 

7 TEST/ 


7DIFF OF 1 SEEK/ 

7OUT GRO BAND DETECT/ 
ZINC SEEK FWD HD 0/7 

ZINC SEEK REV HD 0/7 

ZINC SEEK FWO HD 17 

“ZINN GRO BAND DETECT/ 
ZINC SEEK REV HD 1/7 
/SEEK/ 

7FUD OSC SEEK/ 

REV OSC SEEK/ 

7SEEK TIMING/ 

/7BASIC READ DATA/ 
RWRT/READ DATA (P1)8 
/SPINDLE ROTATION TIMING 
RWRT/READ DATA (P2)8 
/WRT LCK ERR AND DATA PROTECTION/ 
7ADJ CYL INTERFERENCE/ 
JOVERWRITE/ 

/SEEK TIMES 7 

7SPINDLE ROTATION TIME / 


SEQ 0044 


OUTERR MACY11 30(1046) O4-NOV-77 13:30 PAGE 83-12 
DZRLCA. PT1 O4-NOV-77 13:13 SEQ 0045 


3390 006547 050 052123 052101 VALDES: .ASCIZ /(STATED IN 100'S OF MICRO SEC)/ 
3391 006606 050101 051120 054117 MAPROX: .ASCIZ /APPROX / 
3392 006616 047111 042516 000122 LABIN: .ASCIZ /INNER/ 

3393 006624 044515 042104 042514 LABMID: .ASCIZ /MIDDLE/ 

3394 006633 117 052125 051105 LABOUT: .ASCIZ /OUTER/ 

3395 006641 105 050130 041505 LABEXP: .ASCIZ /EXPECTED/ 
3396 006652 030060 020061 054503 LABOCF: .ASCIZ /001 CYL FWD/ 
3397 006666 030060 020061 054503 LABOCR: .ASCIZ /001 CYL REV/ 
3398 006702 031061 020070 054503 LABHCF: .ASCIZ /128 CYL FWO/ 
3399 006716 031061 020079 O54503 LABHCR: .ASCIZ 7128 CYL REV/ 
3400 006732 032462 020066 054503 LABACF: .ASCIZ /256 CYL FWD/ 
3401 006746 032462 020066 054503 LABACR: .ASCIZ /256 CYL REV/ 
3402 006762 042110 020123 O40506 HDMOVF: .ASCIZ /HOS FAILED TO MOVE IN 10 TRIES/ 
3420 007021 122 051505 052105 OPR12: .ASCIZ /RESET WRT LCK 7 

3421 007040 047117 000040 OPRIA: .ASCIZ /ON 7 

3422 007044 047117 O42040 053122 OPRiB: .ASCIZ /ON ORV / 

3423 007054 047125 042504 020122 UNDTST: .ASCIZ /UNDER TEST/ 

3424 007067 123 052105 O53440 OPROOY: .ASCIZ /SET WRT LCK 7 

3425 007104 O44504 043106 OO00040 DIFWD: .ASCIZ 
3426 007112 043523 020116 COO SGNWO: .ASCIZ 
3427 007117 110 020104 OOO HOWD: .ASCIZ 
3428 007123 123 041505 OO0CO4O SECWD: .ASCIZ 
3429 007130 O54503 020114 000 CYLWO: .ASCIZ 
3430 007135 106 047522 020115 FRMWD: .ASCIZ /FROM / 

3431 007143 O40 054502 040520 BYPSNM: .ASCIZ / BYPASSED 7 

3432 007156 047522 052125 047111 SEQMES: .ASCIZ /ROUTINE TRACE SEQ (IN SEQ CALLED): 7 

3433 007221 104 053122 051440 STAMES: .ASCIZ /ORV STAT/ 

3434 007232 O4O502 020104 042523 BSNSTR: .ASCIZ /BAD SEC FILES NOT STRD. ALL SEC ASSUMED GOOD. / 
3435 007310 047524 020124 047503 TCERR: .ASCIZ /TOT COMPARE ERRS: 7 


3437 ; RESULT NAMES 

3438 007333 104 053122 051040 MDRDY: .ASCIZ /ORV RDY / 

3439 007344 047503 052116 O4244O MCERR: .ASCIZ /CONT ERR / 

3440 007356 042110 020122 051103 MHCRC: .ASCIZ /HOR CRC/ 

3441 007366 O40504 040524 O41440 MOCRC: .ASCIZ /DATA CRC/ 

3442 007377 110 051104 047040 MHNF: .ASCIZ HOR NOT FND/ 

3443 007413 104 052101 020101 MOLT: .ASCIZ /DATA LATE/ 

3444 007425 110 051104 O4%7040 MHFCRC: .ASCIZ &HDR NOT FND/HOR CRC/OP 18 

3445 007455 104 053122 O4244O MORERR: .ASCIZ /ORV ERR / 

3454 007466 051104 020126 42523 MOSERR: .ASCIZ /ORV SEL ERR / 

3455 007503 104 053122 051440 MORVST: .ASCIZ /ORV STATE 7 

3456 007516 050123 047111 052040 MSPERR: .ASCIZ /SPIN TIMEOUT 7 

3457 007534 051127 020124 O40507 MWGERR: .ASCIZ /WRT GAT ERR / 

3458 007551 123 042505 020113 MSTERR: .ASCIZ /SEEK TIMEOUT / 

3459 007567 110 O40505 020104 MHCERR: _ASCIZ /HEAD CUR ERR / 

3460 007605 127 052122 O%2040 MWDERR: .ASCIZ /WRT DAT ERR / 

3461 007622 050117 O4444O 041516 MOPERR: .ASCIZ /0P INCOMPLETE / 

3462 007641 110 051104 042057 MHDERR: .ASCIZ &HDR/DAT ERR & 

3463 007656 042110 020122 047516 MFLERR: .ASCIZ 8&HDOR NOT FND/DAT LATE & 

3464 007704 047516 026516 054105 MNEERR: .ASCIZ /NON-EXSTNT MEM 7 

3465 007724 054503 020114 006 MCYLOC: .ASCIZ /CYL 7 

3466 007731 103 052517 042114 MNODRST: .ASCIZ /COULD NOT RETRIEVE DRIVE STATUS/ 
3467 007771 125 045516 020116 MUNDEF: .ASCIZ /UNKN DRV STATE-NO RDY.NO ERR. HOS OUT/ 
3468 010036 O40506 046111 052040 MRLFAL: .ASCIZ /FAIL TO RELD HOS AFTER ERR CLEAR/ 
3469 010077 127 044522 042524 MWRTAB: .ASCIZ /WRITE ABORTED/ 

3470 010115 O40 051105 020122 MEXERS: .ASCIZ / ERR LIMIT EXCEEDED - UNIT DROPPED/ 


OUTERR 


DZRLLA. 


MACY11 301046) 


PTi 


010160 
010167 


010173 
010177 


010204 


010312 


010322 
010351 
010373 
010414 
010421 
010430 
010433 
010436 
010447 
010467 
010531 
010601 
010633 
010640 
010646 
010654 
010720 
010752 
011006 
011017 
011041 
011073 
011130 
011160 
011203 
011237 
011253 
011260 
011270 
011314 
011333 
011344 


011344 


042440 
207 


111 
040 


044440 


040504 
020065 


047045 
O45 


O4-NOV-77 
O4-NOV-77 13:13 


051122 
177777 


020123 
041123 


020116 
043117 
052101 
052101 
052101 
051522 
030060 
041531 
040524 
042523 


052045 
022516 


042045 
051445 
052045 
022516 


051117 
000 


000 
000040 


000 
000040 
020105 
020105 
020105 
020124 
051515 
042514 
054040 
042103 


047045 


022524 


052045 
022524 
030523 
022524 
022524 
000124 
000061 
000063 
030461 
052045 
030461 
022465 
022460 
030523 
031123 
022462 
031061 
030523 
022524 
000124 
022462 
022461 
042045 
022524 


13:30 PAGE 83-13 


MERRS: .ASCIZ 
BELL: ~ASCIZ 
; RESULT 
RESE3: .ASCIZ 
RESEY: .ASCIZ 
; RESULT 
RESES: .ASCIZ 
RESE6: .ASCIZ 


STATE2: . ASCIZ 
STATE3: . ASCIZ 
STATES: . ASCIZ 
CiOMS: .ASCIZ 
CSOOMS: . ASCIZ 
CCYLUP: . ASCIZ 
CAFOT: .ASCIZ 
CSSEC: .ASCIZ 


FMTOP1: . ASCIZ 
FMTOP2: . ASCIZ 
FMTOP3: . ASCIZ 
FMT1:  ASCIZ 
FMT1. 1: . ASCIZ 
FMT2: . ASCIZ 
FMT3: . ASCIZ 
FMT4: . ASCIZ 
FMTS: . ASCIZ 
FMT: . ASCIZ 
FMT?: . ASCIZ 
FMT8: . ASCIZ 
FMT9: . ASCIZ 
FMT11: .ASCIZ 
FMT12: .ASCIZ 
FMT13: .ASCIZ 
FMTI4: .ASCIZ 
FMT15: .ASCIZ 
FMT16: .ASCIZ 
FMNT17: .ASCIZ 
FMT18: .ASCIZ 
FMNT19: .ASCIZ 
FNT20: .ASCIZ 
FMT21: .ASCIZ 
FMT22: .ASCIZ 
FMT23: .ASCIZ 
FMT24: .ASCIZ 
FMT25: .ASCIZ 
FMT26: .ASCIZ 
FMT27: .ASCIZ 
FMT28: .ASCIZ 
ENOMOD 


BGNMOD GLBERR 
, ERR1 


7 ERROR/ 

€207><377><377> 
SETTINGS 

AIS 7/7 

7 SB / 
CONDITIONS 

7 IN 7 


75 SECDS/ 


AUNLTYNATYT%06%S%T%01 XN/ 
ZUENLZTLOL“ZS1%T“OLZNZ 
ZUENLTLOLYS A“ T“T YNZ 

ZAvalA 

JUENLTUTZ 

7414 

7%N/ 

ZUNLTLTULNZ 

Z%N%TLOO%S1%T%017 
ZUNKSLLXTUYSYXTYSYXTUSYXTYSYXTYS2%T/ 
7%N%T%06%S2%06%S2%06%S 2%06%S3%03%S2%01 XN/ 
7%N%T%06%S2%06%S2%06%S 2%06/ 
ZUNKT/ 

7%THOLZ 

7%T%037 
ZUNLSLLZTXOBXSA%T“OB%~S1%~TXOLA“S1%T“O1/ 
ZUNKLTXT~D3%S1%T%06%S 1%T%06, 
7%N%S11%T%D03%S1%T%06%81%7%06/ 
7%N%S5%067 

7%S10%TUXN%S11%06%N/ 
ZUNZSALB%TXSSXTXSHXTASS%T YNZ 
7%1T%S2%D6%S4 %D6%S4 %06%S4 ~D6%N/ 
7%T%S2%D6%S 14 %06%S4 %D6%N/ 
7%T%S12%06%S 14 %D6%N/ 
ZUN%S11%T%O3%S1%4T%01%S1%T%02/ 
AUTLTLTXLOLUNZ 

ZUNKLT/ 

Z4N%Z02%T7 
ZUNLZSUXTYDYX TXT YD S%NZ 
ZUENZTLD3XT“DSUNZ 

ZUNLTLTATZ 


R3 POINTS TO RESULT MESSAGE 
RESULT: (R3) 





OUTERR MACY11 3011046) 


DZRLOA. PT1 


011344 
011344 
011350 
011352 
011356 
011360 
011364 
011370 
011372 
011376 
011402 
011404 
011410 
011410 
011410 


O04-NOV-77 


O4-NOV-77 13:13 


105737 


004737 


104023 


002657 
002650 


023000 
000001 


023566 
023774 


014370 


13: 30 


BSNMSG 


ENOMSG 
L 10000: 


PQGE 83-14 


ERR2 


ERR3 


ERRY 


ERRS 


ERR6 


ERR? 


ERR8 


ERRO 


ERR10 


ERR1 
TSTB 


R3 POINTS TO RESULT NAME 
RESULT: (R3) 1S 1 SB O 


R3 POINTS TO RESULT NAME 
RESULT: (R3) 1S O SB 1 


R3 POINTS TO RESULT NAME 
RY POINTS TO RESULT CONDITIONS 
RESULT: (RI) 1S 1 SB O (RY) 


R3 POINTS TO RESULT NAME 
R4Y POINTS TO RESULT CONDITIONS 
RESULT: (R3) IS O SB 1 (RY) 


RESULT ROUTINE DETERMINES WHICH ERROR(S) ARE SET AND 
REPORTS ALL 
RESULT: "ERROR" IS 1 SB O 


DRIVE STATE ERROR REPORT 

R3 CONTAINS EXPECTED STATE 

T. STAT CONTAINS BAD STATE 

RESULT: DRIVE STATE IS (T. STAT) SB (R3) 


HEAD POSITIONING ERROR REPORT 

NEWCYL CONTAINS EXPECTED CYLINDER 

HDWRD1 CONTAINS BAD CYLINDER 

RESULT: CYLINDER 1S (HOWRD1) SB (NEWCYL) 


UTILITY RESULT REPORT 

R3 POINTS TO RESULT NAME 

R4Y POINTS TO VALUE 1 

RS POINTS TO VALUE 2 

RESULT: (R3-NAME) IS (RY-VALUE 1) 5B (RS-VALUE 2) 


COMPARE ERROR REPORT 

R3 CONTAINS THE BAD WORD NUMBER 
R4Y POINTS TO BRD WORD 

RS POINTS TO GOCD WORD 

RESULT: WORD (R3) IS (R4¥) SB (RS) 


NOERCT + TEST iF ERROR COUNTING INHIBITED 
1$ >YES - SKIP 

ERRCNT -ELSE BUMP ERROR COUNT 

Ri, -(SP) STORE Ri 

Pc, RPTOP REPORT OPERATION 

#1, (RI)+ + SET PARAM NUMBER 

RZ, (R1)+ ; INSERT MESSAGE ADDRESS POINTER 
PC, RPTRES REPORT RESULTS 

PC, RPTRENM REPORT REMAINDER 

(SP)+,R1 RESTORE R1 

PC, CKERLM /GO CHECK IF ERROR COUNT EXCEEDED 
C$MSG 


SEQ 0047 


—_ 


OUTERR 


OZRLCA. 


MACY11 30(1046) 


O4-NOV-77 


PTi O4-NOV-77 13:13 


011412 
011412 
011416 
011420 
011424 
011430 
011432 
011436 
011440 
011444 
011450 
011452 
011456 
011456 
011456 


011460 
011460 
011464 
011466 
011472 
011476 
011500 
011502 
011506 
011512 
011516 
011520 
011524 
011524 
011524 


011526 
011526 
011532 
011534 
011540 


011574 


011576 
011576 
011602 
011604 
011610 
011614 


005237 
010146 
004737 
012721 
010321 
012721 
005021 
004737 
004737 
012601 
004737 


104023 


005237 
010146 
004737 
012721 
010321 
005021 
012721 
004737 
004737 
012601 
004737 


104023 


005237 
010146 
004737 
012721 
010321 
012721 
005021 
010411 
004737 
004737 
012601 
004737 


104023 


005237 
010146 
004737 
012721 
010321 


002650 


023000 
000003 


000001 


023565 
023774 


014370 


002650 
023000 
000003 


000001 
027566 
023/774 


014370 


002650 


023000 
000004 


000001 
023566 
023774 
014370 


002650 


023000 
000004 


13:30 PAGE 83-15 


BGNMSG 


ERNOMNSG 


L10001: 


BGNMSG 


ENOMSG 


L 10002: 


BGNMSG 


ENDOMSG 


L 10003: 


BGNMSG 


— 


EMT 
ip 


PC, RPTRES 
PC, RPTREN 
(SP)+,R1 

PC. CKERLM 


CSMSG 


ERRCNT 
R1,-(SP) 
PC, RPTOP 
#3, (R1)+ 
R3, (R1)+ 
(R1)+ 

#1, (R1)+ 
PC, RPTRES 
PC, RPTREM 
(SP)+,R1 
PC. CKERLM 


CS$MSG 


ERRCNT 
Ri, -(SP) 
PC, RPTOP 
#4, (R1)+ 
R3, (R1)+ 
#1, (R1)+ 
(R1)+ 

R4, (R11) 
PC,RPTRES 
PC, RPTREM 
(SP)+,R1 
PC, CKERLM 


CSMSG 


ERRCNT 

Ri, - (SP) 
PC, RPTOP 
#4, (R1)+ 
RJ, (R1)+ 


+ BUMP — COUNT 
+STORE R 

+ REPORT OPERATION 

+ SET PARAM NUMBER 

+ INSERT NAME ADD POINTER 
+SET 1S VALUE 

+SET SB VALUE 

REPORT RESULTS 

;REPORT REMAINDER 
+RESTORE Ri 

GO CHECK IF ERROR COUNT EXCEEDED 


;+BUMP ERROR COUNT 
STORE R1 

REPORT OPERAT!ON 

+ SET PARAM NUMBER 

; INSERT NAME ADD POINTER 

;SET IS VALUE 

+SET SB VALUE 

;REPORT RESULTS 

REPORT REMAINDER 

RESTORE R1 

>GO CHECK IF ERROR COUNT EXCEEDED 


BUMP ERROR COUNT 

+STORE Ri 

REPORT OPERATION 

;SET PARAM NUMBER 

+ INSERT NAME ADD POINTER 

*SET 1S VALUE 

*+SET SB VALUE 

+ INSERT ADD OF CONDITION POINTER 
REPORT RESULTS 

+REPORT REMAINDER 

RESTORE R1 

>GO CHECK IF ERROR COUNT EXCEEDED 


+ BUMP — COUNT 
TOR 


+STORE R1 

REPORT OPERATION 

+SET PARAM NUMBER 

> INSERT NAME ADD POINTER 


SEQ 0048 


OUTERR 
DZRLOA 


MACY11 30(1046) 


. PTA O4-NOV-77 13:13 


011616 
011620 
011624 
011626 
011632 
011636 
011640 
011644 
011644 
011644 


011646 
011646 
011652 
011654 
011660 
011662 
011664 


012064 


005021 
012721 
010411 
004737 
004737 
012601 
004737 


104023 


105737 
001002 
005237 
010146 
010346 
010446 
010546 
004737 
012721 
012761 
005037 
013703 
042703 
022703 
001432 
012762 
012703 
053703 
010362 


012700 
104027 


012704 
012746 


O4-NOV-77 


000001 


023566 
023774 


014370 


002657 
002650 


023060 
000003 
000001 
002536 
002456 
177761 
ooco04 


000003 
000004 
002444 
000000 
000012 
000200 
001000 
000006 
002536 
002537 
002465 
177442 
002456 
001777 
002000 
010000 
004000 
007622 


010160 


13:30 PAGE 83-16 


ENOMSG 


L10004: 


BGNMSG 


17S: 


000002 


000004 


900000 


100$: 


EMT 


TSTB 


(R1)+ *+SET 1S VALUE 
#1, (R1)+ +SET SB VALUE 
R4, (R1) + INSERT ADD OF CONDITION POINTER 
PC. RPTRES +REPORT RESULTS 
PC, RPTREM +REPORT REMAINDER 
(SP)+,R1 +RESTORE Ri 
PC, CKERLM +GO CHECK IF ERROR COUNT EXCEEDED 
CSNSG 
NOERCT + TEST IF ERROR COUNTING INHIBITED 
17% +YES - SKIP 
ERRCNT + ELSE BUMP ERROR COUNT 
Ri. -(SP) STORE R1 
R3,-(SP) STORE R3 
R4, - (SP) + STORE RY 
RS, -(SP) STORE RS 
PC, RPTOP REPORT OPERATION 
#3, (R1ID+ SET PARAM NUMBER 
#1,2(R1) + INSERT 1S VALUE 
TEMPS CLEAR FOR STATUS STORAGE 
T.CS,R3 ‘GET T.CS 
#177761,R3 AND CLEAR ALL BUT FUNCTION 
#4,R3 +CHECK IF IT WAS GET STATUS 
1$ ;YES - STATUS IS IN T. MP, SKIP 
AGETSTAT. RLDACR2) -ELSE 00 GET STATUS 
#4,R3 
RLORV, R3 


R3,RLCS(R2) 


#10. ;WAIT FOR CONTROLLER READY 
coos — 

CST 

SCROYHSK, RLCS(R2) ; TEST IF READY 

10% *YES - SKIP 

RBITS.R3 ;ELSE SET NO DRIVE STATUS BIT 
2$ ; IN MESSAGE WORD AND SKIP 
RLMP(RZ),.R3 + STORE STATUS FOR REPORT 

R3, TEMPS 

TEMP3+1,R3 ;GET ERROR BITS IN PROPER POSITION 
13% 

T. MP+1,R3 ;GET ERROR BITS FROM MP REG 
#177442,R3 +CLEAR UNUSED BITS 

T.CS,R4 +GET ERROR BITS FROM CS REG 
#1777,R4 +CLEAR UNUSED BITS 

R4,R3 ;MAKE ONE WORD OF POSSIBLE ERRORS 
ROP IERR. RZ + TEST IF OP! SET 

1158 ;NO - SKIP 

RHNFERR, RS TEST IF HDR NOT FOUND ERROR 
107% YES - SKIP 

BHCRCERR.R3 ; TEST \F — CRC ERR 


SMOPERR, RY 


SET OPI ALONE MESSAGE 


SFNTZ8. @MRSLT.R4Y,AMERRS ; REPORT ERROR 
#MERRS, - (SP) 


SEQ 0049 


OUTERR 


DZRLCA. 


MACY11 30(1046) 
PT1 


012070 
012072 


012334 
012340 


010446 
012746 


001372 
000405 
016411 
004737 
000766 
004737 
005737 
001414 


013746 


012704 


O4-NOV-77 
O4-NOV-77 13:13 


004747 
011333 
000004 
000012 
007356 
004000 
007377 
007425 
004000 
007366 
010000 
007413 
100000 


002164 
023566 


023774 
002536 


002536 
007221 
011017 
000003 


000010 
004000 
002000 


003256 


002456 
002456 


1055: 
107%: 


1095: 
1158: 


1183: 


1205: 


38: 
4S 


6S: 


7$: 


15S: 


13:30 PAGE 83-17 


R4, - (SP) 
#MRSLT, -(SP) 
#FMT28, -(SP) 
#4,-(SP) 
SP,RO 
CSPNTB 

#12, SP 

120% 
@MHCRC, RY 
100$ 
#HCRCERR, RZ 
109% 
#MHNF, RY 
100% 

RMHF CRC, RY 
100% 
ROCKERR, RS 
118% 
#MOCRC, RY 
100% 
#DLTERR.R3 
120$ 
#MOLT. RY 


100% 
a 


PC, RPTRES 


4$ 
PC, RPTREM 
TEMPS 


RESTBL(R4Y), (RI) 


+ SKIP 

+HOR CRC MESSAGE 

+ TEST IF HCRC WITH HOR NOT FND 
MESSAGE HEADER NOT FOUND 
—— HCRC MESSAGE 


+ SKI 
; TEST IF DATA CHECK SET. 
;NO - SK IP 

SET nESSAGE DATA CHECK 


+ TEST iF DATA LATE ERROR 
NO an SK IP 
SET ne SSAGE DATA LATE 


;SET BIT POINTER FOR TEST 
+CLEAR RY FOR TABLE COUNT 
TEST IF BIT IS SET 

YES - SKIP TO REPORT 
;ELSE BUMP TABLE POINTER 
CLEAR CARRY 

+ SHIFT BIT POINTER TO NEXT BIT 
;LOOP IF NOT O 

ELSE REPORT REMAINDER 

+ INSERT NAME ADDRESS 
;REPORT RESULTS 

+GET NEXT BIT 

REPORT REMAINDER 

+ TEST IF ANY NEW STATUS 
+NO - SKIP 


NOT OPI 


15% 
#FMNT17, @STAMES. TEMPS 


TEMP 3. -(SP) 


#STAMES, - (SP) 


#FNT17.-(SP) 
#3, - (SP) 


CSPNTB 

#10. SP 
#OCKERR. T. CS 
25% 

++ aeiegh 


ROBUFF.RS 
#IBUFF.RY 


TEST iF DATA CHECK ERROR 


7NO - SKIP 
+ TEST IF OPI SET 
;YES - SKIP 


*CLEAR COMPARE ERROR COUNT 
SET COMPARE LENGTH 

SET WORD COUNT 

+SET GOOD WORD POINTER 
SET TEST WORD POINTER 


SEQ 0050 


OUTERR MACY1I1 ah ate 


DZRLCA. PT1 


012344 
012346 
012350 
012356 
012360 
012360 
012362 
012366 
012370 


012522 


012524 
012524 


012572 


O4-NOV- 


021514 
001427 
023727 
003021 


011546 
012746 
011446 
012746 
010346 
012746 
012746 
012746 


012701 


010146 
012746 
013746 
012746 
012746 
012746 
010600 
104014 
062706 
012605 
012604 
012603 
012601 
004737 


104023 


005237 
010146 
37 


004737 


O4-NOV-77 13:30 PAGE 83-18 


13: 13 


002426 000012 


010177 
010173 
005575 


010752 
000007 


000020 | 
002426 


002426 
000200 
010211 
002426 
007310 


011314 
000005 


000014 


014370 


002650 


023000 
000003 
007503 
002472 


023566 
023774 


014370 


183: 


205: 
195: 


255: 


275: 


ENOMSG 


L10005: 


BGNMSG 


ENDMSG 


ENT 


ae 
INC 


(R5), (RY) + CHECK WORD 
19$ GOOD - SKIP 
a TEST IF _ LIMIT REACHED 


2 KI 


#7,-(SP) 

SP.RO 

CSPNTB 

#20. SP 

MORECE ;BUMP ERROR COUNTER 
(R5)+, (R4)+ ;BUMP POINTERS 

R3 ;BUMP COUNTER 

R1 +DEC LENGTH COUNT 
18$ ;LOOP IF NOT DONE 
MORECE + TEST IF ANY COMPARE ERRORS 
273 +>NO = SK 


iP 

#128., SET COMPARE LENGTH 
SPATZ?, ATCERR, MORECE, #RESEG, R1 

Ri, -(SP) 

#RESEG. - (SP) 

MORECE, -(SP) 


(SP)+,R5 *RESTORE RS. 4, 3 1 


PC, CKERLN *GO CHECK IF ERROR COUNT EXCEEDED 
CSMSG 


ERRCNT +BUMP ERROR COUNT 
Ri, -(SP) STORE Ri 

Pc, RPTOP +REPORT OPERATION 

#3, (R1ID+ SET PARAM NUMBER 
@MORVST. (R1)+  ; INSERT NAME ADD POINTER 
T. STAT. (R1)+ + INSERT 1S VALUE 

R3,(R1) ; INSERT SB VALUE 


PC, RPTRES REPORT RESULTS 

PC, RPTREM REPORT REMAINDER 

(SP)+,R1 RESTORE R1 

PC. CKERLM GO CHECK IF ERROR COUNT EXCEEDED 


SEQ 0051 


OUTERR MACY11 30(1046) O4%-NOV-77 13:30 PAGE 83-19 
DZRLOA. PT1 O4-NOV-77 13:13 
(3) 012572 L10006: 
shes 012572 104023 ENT CS$MSG 
3766 012574 BGNMSG ERR8 
3767 012574 005237 002650 INC ERRCNT + BUMP ye COUNT 
3768 012600 010146 MOV Ri, -(SP) + STORE R 
3769 012602 010346 MOV R3.-(SP) ;$T ORE Rg 
3770 012604 004737 023000 JSR PC. RPTOP REPORT OPERATION 
3771 012610 012721 000003 MOV #3, (R1)+ +SET PARAM NUMBER 
3772 012614 012721 007724 MOV @MCYLOC. (R1)+  ; INSERT NAME ADD POINTER 
3773 012620 013711 002464 f Mov HOWRD1, (R1) +GET HEADER WORD 
3774 012624 012703 000007 MoV , +SET SHIFT COUNT 
3775 012630 000241 35: CLC 
3776 012632 006011 ROR (R1) ALIGN CHAR FOR PRINTING 
3777 012634 005303 DEC R3 + AS IS VALUE 
3778 012636 001374 BNE 3$ 
3779 012640 005721 TST (R1)+ *>BUMP PARAM POINTER 
3780 012642 013711 002514 MOV NEWCYL, (R1) + INSERT SB VALUE 
3781 012646 004737 023566 JSR PC, RPTRES REPORT RESULTS 
3782 012652 004737 023774 JSR PC, RPTREM REPORT REMAINDER 
3783 012656 012603 MOV (SP)+,R3 RESTORE R3 
3784 012660 012601 MOV (SP)+,R1 +RESTORE Ri 
3785 012662 004737 014370 JSR PC, CKERLM +GO CHECK IF ERROR COUNT EXCEEDED 
3786 012666 ENOMSG 
(3) 012666 L10007: 
ava? 012666 104023 EMT CS$MSG 
3788 012670 BGNMSG ERRI 
3789 012670 065237 002650 INC ERRCNT +BUMP ERROR COUNT 
3790 012674 010146 MoV R1,-(SP) +STORE Ri 
3791 012676 004737 023000 JSR PC, RPTOP +REPORT OPERATION 
3792 012702 012721 000003 MoV #3, (R1)+ + SET PARAM NUMBER 
3793 012706 010321 MOV R3, (R1)+ + INSERT NAME ADD POINTER 
3794 012710 010421 MOV R4, (R1I)+ +SET 1S VALU 
3795 012712 010521 MoV RS, (R1)+ +SET SB VALUE 
3796 012714 004737 023566 JSR PC, RPTRES REPORT RESULTS 
3797 012720 004737 023774 JSR PC, RPTREM +REPORT REMAINDER 
3798 012724 012601 MoV (SP)+,R1 +RESTORE R1 
3799 012726 004737 014370 JSR PC, CKERLM +GO CHECK IF ERROR COUNT EXCEEDED 
3800 012732 ENOMSG 
(3) 012732 L10010: 
(3) 012732 104023 EMT CSMSG 
3801 012734 BGNMSG ERR10 
3802 012734 010146 MoV Ri. -(SP) +STORE Ri 
3803 012736 005737 002426 TST MORECE + TEST IF _— BAD LINE 
3804 012742 001051 BNE 3$ +YES - SK 
3805 012744 005237 002650 INC oes + BUMP ERROR COUNT 
3806 012750 004737 023000 JSR PC, RPTOP REPORT OPERATION 
3807 012754 PRINTB HF NTS, SBASAOD. RLBAS, #DRVNAM, <B.RLDRV+1> ; REPORT ID 
(11) 012754 005046 CLR (SP) 
(11) 012756 153716 002445 BISB RLORV1, (SP) 
(10) 012762 012746 005423 MoV #ORVNAM, - (SP) 
(9) 012766 013746 002440 MoV RLBAS. -(SP) 
(8) 012772 012746 005412 MOV #BASADD. - (SP) 
(7) 012776 012746 010447 MOV #F NTS, ~(SP) 
(6) 013002 012746 000005 MOV #5, -(SP) 
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DZRLOA. PT1 O4-NOV-77 SEQ 0053 
(3) 013006 010600 MOV SP, RO 
(4) 013010 104014 ENT CSPNTB 
(4) 013012 062706 000014 ADD #14, SP 
3808 013016 PRINTB #FMT14, S#MRSLT, #MWORD, R3. MRESES, (RY), BPESEY, (RS) 
(14) 013016 011546 Mov (R5),-(SP) 
(13) 013020 012746 010177 MOV WRESEY, - (SP) 
(12) 013024 011446 MOV (RY), - (SP) 
(11) 013026 012746 010173 MOV #RESES. -(SP) 
(10) 013032 010346 MOV R3, - (SP) 
(9) 013034 012746 005575 MoV #MWORD, - (SP) 
(8) O13040 012746 004747 MoV #MRSLT, - (SP) 
(7) 013044 012746 010720 MOV #FMTI4, - (SP) 
(6) 013050 012746 000010 MOV #10, -(SP) 
(3) 013054 010600 MOV SP.RO 
(4) 013056 104014 EMT CSPNTB 
(4) 013060 062706 000022 ADD #22, SP 
3809 013064 000421 BR 4§ 
3810 013066 33: PRINTB #FMT15, @MWORD. R3, RRESES. (RY), RRESEY, (RS) ; REPORT DATA 
(13) 013066 011546 MOV (R5),-(SP) 
(12) 013070 012746 010177 MOV RRESEY, - (SP) 
(11) 013074 C1144%6 MOV (RY), -CSP) 
(10) 013076 012746 010173 MOV #RESES, - (SP) 
(9) 013102 010346 MOV R3,-(SP) 
(8) 013104 012746 005575 MOV #MWORD, - (SP) 
(7) 013110 012746 010752 MoV #FMT1S, - (SP) 
(6) 013114 012746 00C007 MOV #7,-(SP) 
(3) 013120 010600 MOV SP,RO 
(4) 013122 104014 ENT CSPNTB 
(4) 013124 062706 000020 ADD #20, SP 
3811 013130 005237 002426 4S: INC MORECE + INC COMPARE ERROR COUNT 
3812 013134 012601 MOV (SP)+,R1 ;RESTORE R1 
3813 013136 004737 014370 JSR PC, CKERLM GO CHECK IF ERROR COUNT EXCEEDED 
3814 013142 ENOMSG 
(3) 013142 L10011: 
(3) 013142 104023 ENT C$iSG 
3815 013144 ENDMOD 
3816 _ EVEN 
3817 
3818 013144 BGNMOD HPTCODE 
3819 013144 BGNHW 
(3) 013144 000005 .WORD £10012-LSHW/2 
3820 013146 174400 .WORD 174400 CSR BASE ADDRESS DEFAULT 
3821 013150 000330 .WORD 330 + VECTOR DEFAULT 
3822 013152 000240 .WORD 240 PRIORITY DEFAULT 
3823 013154 000000 WORD O DRIVE NUMBER DEFAULT 
3824 013156 000001 .WORD 1 *+RL11 CONTROLLER 
3825 013160 ENOHW 
(3) 013160 L10012: 
3826 013160 ENDMOD 
3827 
3828 013160 BGNMOD SPTCODE 
3829 013160 BGNSW 
(3) 013160 000006 -WORD L10013-LSSH/2 
3830 013162 000000 MISWIW: .WORD 0 USE ALL CYLINDERS 


USE ALL SECTORS 
EXECUTE ORIVE SELECT TEST 


oww 
a5 

to-O 
nun 


2 
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3833 *BIT 3 = EXECUTE HEAD ALIGNMENT 
3834 BIT 4 = DROP DRIVE IF NO RESPONSE 
3835 BIT 12 = HEAD SELECT SUPPLIED FLAG 
3836 BIT 13 = HILIMIT SPECIFIED FLAG 
3837 ;BIT 14 = LO LIMIT SPECIFIED FLAG 
3838 BIT 15 = DO MANUAL INTERVENTION 
3839 013164 000000 LOLIMW: .WORD 0 
3840 013166 000377 HILIMW: .WORD 255. 
3841 013170 000000 HEADW: .WORD 0 
3842 013172 000024 ERLIMW: .WORD 20. FERROR LIMIT 
3843 013174 000012 DCLIMW: .WORD 10. ; COMPARE ERROR LIMIT 
3844 013176 ENOSW 
(3) 013176 L10013: 
3845 013176 ENOMOD 
3846 
3847 013176 BGNMOD OSPCODE 
3852 013176 DISPATCH 19 
(4) 013176 000023 .WORD 19 
(6) 013200 024260 .WORD Ti 
(6) 013202 024602 .WORD 12 
(6) 013204 025072 .WORD 13 
(6) 013206 025304 .WORD TY 
(6) 013210 025514 .WORD TS 
(6) 013212 025724 .WORD T6 
(6) 013214 026150 .WORD 17 
(6) 013216 026350 .WORD 18 
(6) 013220 G26576 .WORD T9 
(6) 013222 027072 .WORD T10 
(6) 013224 027370 .WORD Tiil 
(6) 013226 027666 .WORD T12 
(6) 013230 031434 .WORD T13 
(6) 013232 032144 .WORD T14 
(6) 013234 032360 -WORD T15 
(6) 013236 033104 .WORD T16 
(6) 013240 034126 .WORD Ti? 
(6) 013242 035120 .WORD T18 
(6) 013244 036230 .WORD T19 
3854 013246 ENDMOD 
3855 
3856 013246 BGNMOD INITCODE 
3857 013246 BGNINIT 
3858 013246 SETPRI #340 
(3) 013246 012790 000340 MOV #340, RO 
(3) 013252 104041 ENT CSSPRI 
3859 013254 MANUAL CHECK IF MANUAL INTERVENTION ALLOWED 
(3) 013254 104051 ENT CSMAN I 
3860 013256 BCOMPLETE 1$ YES - SKIP 
(2) 013256 103403 BCS 1$ 
3861 013260 042737 100014 O131e2 BIC SMITEST'DRSELT!HDALIGN. MISWIW ; CLEAR ALL MANUAL 
3862 + INTERVENTION FLAGS 
3863 013266 005037 002414 1S. CLR SSINOX *CLEAR SUBROUTINE STACK INDEX 
3864 013272 READZF #EF. PUR POWER FAILURE 
(3) 013272 012700 000034 MOV REF. PWR, RO 
(3) 013276 104050 ENT CSREFG 
3865 013300 BNCOMPLETE 4S NO, GO CHECK NEW PASS 


(2) 013300 103004 BCC 4§ 


cm 


OUTERR 


DZRLCA. 


MACY11 30(1046) 


PTi 


013302 
013310 
013312 
013312 
013316 
013320 
013320 


013322 
013330 
013334 
013342 
013350 
013356 
013360 
013366 
013374 
013376 
013402 
013404 
013404 
013404 
013410 
013412 
013412 
013414 
013414 
013414 
013420 
013422 
013422 


013424 
013424 
013430 
013432 
013432 
013434 
013434 
013440 
013442 
013446 
013454 
013462 
013466 
013472 
013476 
013502 
013502 
013504 
013506 
013506 
013510 
013514 
013516 


O4-NOV-77 


013737 
000513 


012700 
104050 


103031 


013737 
005037 
012737 
012737 
032737 
001003 
012737 
032737 
001002 
005037 
000427 


012700 
104050 


103746 


012700 
104050 


103446 


012700 
104050 


103403 


005737 
001010 
005237 
013737 
012737 
005237 
005337 
013700 
012702 


104042 
010001 


103406 
005737 
001747 
005337 


O04-NOV-77 


13: 13 
002014 


000040 


002014 
002652 
177777 
177777 
020000 


000377 
040000 


013164 


000037 


000036 


000035 


002506 


002652 
002014 
177777 
002654 
002506 
002654 
002440 


002662 
002662 


002662 


002506 


002654 
002422 
013162 


013166 
013162 


002506 
002654 


4§: 


RSTRT: 


3$ 


5S: 
RESTART: 


CONT I NUE 


NXTPAS: 


PASNEW: 


SETDON: 
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MOV LSUNIT,PWRFLG  ;SET POWER FAIL FLAG 
BR PWCON +GO SERVICE POWER FAIL 
READEF #EF. START 


CHECK IF START 
Mov #EF. START. RO 


ENT CSREFG 
BNCOMPLETE RESTART ;NO - SKIP 
BCC RESTART 

ON START INITIALIZE TO START AT FIRST DRIVE. CLEAR INTERNAL 
PASS COUNT. AND ERROR COUNT. 

MOV LSUNIT,ORVCNT ;SET UP UNIT COUNT 

CLR PASNUM + CLEAR PASS NUMBER 

MOV #-1,PSETNM +SET PARAM SELECT TO INITIAL VALUE 
MOV #-1, HADONE ;PRESET HEAD ALIGN DONE FLAG 

BIT RHICYL,MISWIW ; TEST IF HI LIMIT SET 

BNE 3$ YES - SKIP 

Mov #377, HILIMW sELSE INIT HILIMIT 

BIT RLOCYL-MISWIWN ;TEST IF LO LIMIT SET 

BNE 5$ YES - SKIP 

CLR LOL IMW -ELSE CLEAR LO LIMIT 

BR SE TDON 


READEF #EF. RESTART ;CHECK !F RESTART 
MOV REF. RESTART. RO 


EMT CSREFG 
BCOMPLETE RSTRT ;NO - SKIP 
BCS RSTRT 
READEF #EF. CONTINUE TEST IF CONTINUE 
MoV EF. CONTINUE. RO 
EMT CSREFG 

PWCON 


BCOMPLETE 

BCS PWCON 

ON CONTINUE PICK UP UNIT LAST UNDER TEST 

READEF #EF. NEW » CHECK IF STARTING NEW PASS 
MOV REF. NEW. RO 

EMT CSREFG 

BCOMPLETE PASNEW 

BCS PASNEW 


TST ORVCNT TEST IF ALL UNITS CHECKED 
BNE SE TOON *NO - SKIP 

INC PASNUM /ELSE BUMP PASS COUNT 

MoV LSUNIT,ORVCNT ;GET ALL DRIVES 

MOV #-1,PSETNM +SET PARAM SELECT TO INITIAL 
INC PSETNM +NEXT SET OF PARAMETERS 

DEC DRVCNT >DOWN COUNT DRIVE TOTAL 

MoV PSETNM, RO SET UP TO GET PARAMETERS 
MoV @RLBAS, RZ 


nM CSGPHRD 

MoV RO. R1 

+) ate 7$ *SKIP IF GOOD PARAM 
8 


RECENT POWER FAILURE 
ACCOUNT FOR DRIVE 


cs % 

TST PHRFLG 
BEQ NXTPAS ;NO 
DEC PWRFLG 


SEQ 0055 


OUTERR 
DZRLUA 


PTA 


MACY11 30(1046) 
O4-NOV-77 


013522 
013524 
013526 
013530 
013532 
013534 
013540 
013540 
013544 
013550 
013554 
013560 
013562 
013566 
013566 
013572 
013574 


013600 
013604 
013606 
013614 


013616 
013622 
013622 
013626 
013632 
013636 
013642 
013644 
013650 
013654 
013660 
013662 
013666 
013672 
013676 
013704 
013706 
013714 
013720 
013724 
013730 
013730 
013734 
013736 
013744 
013746 
013746 
013752 
013754 


000744 
012122 
012122 
005721 
012122 
005037 


012746 
012746 
013746 
012746 
104037 
062706 


012700 
104041 
013702 


005737 
001135 
032737 
001531 


005037 
012746 
012746 


013746 
012746 


042705 
010562 


012700 


001452 


013700 
104036 


04-NOV-77 
13:13 


002650 
000340 
014332 
002442 
000003 
000010 
000000 


002440 


002652 
000020 


002660 


000340 
014324 
002642 
000003 


000010 
000000 
002660 


002444 
000200 
000000 
000001 


000003 
000004 
000200 
000000 
000004 


002000 


002642 


013162 


000000 
000004 


000000 


73: 


PWCON: 
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BR NXTPAS 

MOV (R1)+, (RZ)+ + STORE PARAMETERS Sw 

MOV (R1)+, (R2)+ T 

TST (R1)+ ;BUMP PAST PRIORITY 

MOV (R1)+, (R2)+ ; DRIV 

CLR ERRCNT +CLEAR OUT ERROR COUNT 
SETVEC RLVEC., #INTHLR, #340 + SET UP VECTOR 

MOV #340, -(SP) 


MoV # INTHLR, -(SP) 


EMT CSSVEC 
ADD #10. SP 
SETPRI #0 SET PRIORITY 
MOV #0,R0 
EMT CSSPRI 


MOV RLBAS, R2 + SET RL BASE ADDRESS POINTER 


CHECK IF DOING AUTO SIZE AND DROP DRIVE IF NOT READY AND 
ERROR SETS ON GET STATUS. 
TST PASNUN ct IF Ae 0 
BNE 22% SKIP 
BIT #AUTOSZ, MISWIW Test 1F DOING AUTO SIZE 
iP 


BEQ 228 +NO - SK 
CHECK IF ee Se 1S THERE BEFORE WE CHECK DRIVE READY 


5S: 


CLR ; TRAP OCCURANCE 

SETVEC ERRVEC, #TRPHAN, #340 ;SET TRAP VECTOR 
MOV #340, -(SP) 

MOV # TRPHAN, - (SP) 

MOV ERRVEC, -(SP) 


TST RLCS(R2) ACCESS BUS 
TST TRPFLG + TRAP OCCUR?? 
BNE 5$ YES, DON'T INVESTIGATE FURTHER 


MOV RLORV,. RS *GET DRIVE NUMBER 
BIS RCRDYMSK. RS ; INSERT CONT READY 


MOV RS, RLCS(R2) ;LOAD IN DRIVE NUMBER 

BIT #DRDYMSK. RLCS(R2) CHECK IF a 1S READY 
BNE 20$ YES - GO DO TEST 

MOV sae ae RLDACRZ) -ELSE INSERT GET STATUS 
BIS RS +LOAD RS WITH GET STATUS FUNCTION 
BIC SCROYMSK. RS +CLEAR CONTROLLER READY 
MOV R5, RLCS(R2) +LOAD CS REG 

WAITMS #4 *WAIT 4 MS 

MOV #4,R0 

ENT CSWTM 

BIT ROPIERR,RLCS(R2); TEST IF OP! SET 

BEQ 20% NO - SKIP 


CLRVEC ERRVEC 
MOV ERRVEC. RO 


ENT CSCVEC 
PRINTF #FMT24. sORVNAV 


. 


SEQ 0056 


OUTERR 
DZRLOA. 
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PTi 


013754 
613760 
013764 
013770 
013772 
013774 
014000 
014000 
014002 
014006 
014012 
014016 
014022 
014026 
014032 
014034 
014036 
014042 
014042 
014046 
014052 
014054 
014056 
014062 
014062 
014066 
014070 
014670 
014072 
014072 
014076 
014100 


014100 
014104 


014106 


014112 
014116 
014122 
014126 
014134 


014136 
014136 
014142 
014144 
014146 
014150 
014150 
014154 
014160 
014164 
014166 
014170 


012746 
012746 
012746 
010600 
104017 
062706 


005046 


062706 


012746 
012746 
010600 
104017 
062706 


013700 
104053 


104044 


013700 
104036 


005737 
001434 


013705 
052705 
010562 
012701 
032762 
001020 


012700 
104026 
005301 
001367 


012746 
012746 
012746 
010600 
104017 
062706 


O4-NOV-77 
O4-NOV-77 13:13 


005430 
011253 
000002 


000006 


002445 
005423 
002440 
005412 
010447 
000005 


000014 
010433 
000001 
oco004 
002654 


002642 


002662 


002444 
000200 
000000 
000074 
000001 


000012 


005463 
011253 
000002 


000006 


10S: 


208 


225: 
>CHECK IF POWER 


4S: 


000000 9%: 


13:30 PAGE 83-24 


#ORVNAV, -(SP) 
#FMNT24,-(SP) 


#6. SP 
Se ee 
~ (SP) 


RLORV+1, (SP) 
RORVNAM, -(SP) 
RLBAS, - (SP) 
#BASADD. - (SP) 
#FMNTS, -(SP) 


#FNT3, -(SP) 
#1,-(SP) ” 
SP, RO 

CSPNTF 

#4, SP 

PSETNM DROP DRIVE 
PSETNM, RO 

CS$O00DU 


CS$DCLN 
ERRVEC 
ERRVEC. RO 
CSCVEC 


FAILURE WAIT 1S NEEDED 


PWRFLG ; NEEDED??? 
8s ;NO. SKIP 


RLORV, RS DRIVE SELECT 
&CRDOYMSK, RS SET CRODY 
R5,RLCS(R2) SELECT ORIVE 


#60. .R1 SIXTY SECOND TIMER 
#DRDYMSK,. RLCS(R2) ;DRIVE UP YET 
8$ YES START TEST 

#10. ;WAIT A SECOND 

#10. ,R0 

CSWTM 

Ri SIXTY GONE BY 

98 ;NO 

SFMNT24, #NOPWR 


#NOPHR. - (SP) 
#FNT24,-(SP) 
#2, -(SP) 
CSPNTF 

#6, SP 


SEQ 0057 


_— ar 


OUTERR 
DZRLLA 
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014174 
014176 


014176 
014176 
014176 
014200 


014200 
014200 


014200 
014200 
014204 
014210 
014214 
014220 
014222 


014226 
014226 
014232 
014234 
014242 
014244 
014252 
014260 
014262 
014262 
014266 
014270 
014270 
014274 
014276 
014302 
014304 
014310 
014310 
014314 
014316 
014316 
014316 


014320 
014320 
014322 
014322 
014322 


014324 
014324 


014324 
014330 


000701 


104011 


012746 
012746 
013746 
012746 
104037 
062706 


012700 
104041 
032762 
001407 
053762 
032762 
001003 


012700 
104026 


013700 
104036 
005737 
001402 
005337 
013700 
104036 
104012 
000240 


104055 


005237 
000002 
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BR 10$ 
83: 
ENDINIT 
L10014: 
EMT CSINIT 
ENDMOD 
BGNMOD CLNCODE 
BGNCLN 
SETVEC ERRVEC, #TRPHAN, #340 
000340 Mov #340, -(SP) 
014324 MOV #TRPHAN, - (SP) 
002642 MoV ERRVEC, -(SP) 
000003 MOV #3,-(SP) 
; EMT CSSVEC 
000010 ADD #10, SP 
SETPRI #7 ;SET PRORITY TO 7 
000007 MOV #7,R0 
EMT CSSPRI 
000200 o00000 2%: BIT #&CRDYMSK, RLCS(R2) ; TEST IF CONTROLLER READY 
BEQ 35 ;NO LOOP UNTIL READY 
002444 900000 BIS RLORV,RLCS(R2) ;SET DRIVE NUMBER 
000u01 90c000 BIT #DRDYMSK, RLCS(R2) ; TEST IF ORIVE BUSY 
BNE 55 ;NO - SKIP 
35: WAITNS #3 ;WAIT 300 MS 
000003 MOv #3,R0 
EMT CSWTM 
5S: CLRVEC RLVEC ;RELEASE VEC 
002442 MOV RLVEC.RO 
EMT CSCVEC 
002662 TST PWRFLG ;PWR FAIL SET 
BEQ 7% ;NO 
002662 DEC PWRFLG 
7$: CLRVEC ERRVEC 
002642 MoV ERRVEC, RO 
EMT CSCVEC 
ENOCLN 
L10015: 
EMT CSCLEAN 
BGNDU 
NOP 
ENDDU 
L10016: 
EMT c$D0U 
ENOMOD 
BGNMOD GLBSUB 
002660 TRPHAN: - TRPFLG 
| 


SEQ 0058 


vm 


OUTERR 


MACY11 3011046) 
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014332 


014332 
014332 
014334 
014340 
014344 
014350 
014354 
014362 
014366 
014366 
014366 


014370 
014376 
014400 
014400 
014402 
014402 
014404 
014404 
014410 
014414 
014420 
014424 
014426 
014430 
014434 
014434 
014436 
014442 
014446 
014452 
014456 
014462 
014466 
014470 
014472 
014476 
014476 
014502 
014506 
014510 
014512 
014516 
014516 
014522 
014524 
014524 
014526 


014530 


104021 
012237 
012237 
012237 
011237 
012737 
013702 


00c002 


023737 
002453 


104020 
103451 


012746 
013746 
012746 
012746 
010600 
104017 
062706 


005046 
153716 
012746 
013746 
012746 
012746 
012746 
010600 
104017 
062706 


012746 
012746 
010600 
104017 
062706 


013700 
104053 


104044 
000207 


016237 


O4-NOV-77 13:30 PAGE 83-26 


O4-NOV-77 13:13 


BGNSRV 
002456 
002460 
002462 
002464 
177777 002420 
002449 
ENDSRV 
L10017: 


002650 013172 CKERLM: 


010115 
013172 
01:!260 
000u03 


000010 


002445 
045423 
002440 
005412 
010447 
000005 
000014 
010433 
000001 
000004 


002654 


1$ 


000000 002456 READRL: 


INTHLR 


INTERRUPT HANDLER. ABORTS WAIT TIMER AND STORES ALL RL11 REGS 
ABORTWAIT 

EMT CSABRT 

MOV (R2)+,T.CS +STORE RL REGISTERS 


MOV (R2)+,T. BA 
MOV (R2)+,T. DA 


MOV (R2),T. MP 

MOV #-1, DONE SET DONE FLAG 
MOV RLBAS, RZ RESTORE R2 
RTI 


ERROR LIMIT CHECKING ROUTINE 

DROPS DRIVE IF ERROR LIMIT EXCEEDED 

CMP ERRCNT-ERLIMW ; TEST IF ERROR LIMIT EXCEEDED 
BLT 1$ +NO - SKIP 

INL OOP *CHECK IF IN ERROR LOOP 

ENT CSINLP 


M 
_ BCOMPLETE 1$ >YES - SKIP 
BCS 1$ 


PRINTF #FNT25,. ERLIMW, #MEXERS 
MOV RMEXERS, -(SP) 


MOV ERLIMW., - (SP) 

MoV #FMT25. -(SP) 

MOV #3, - (SP) 

Mov SP,.RO 

EMT CSPNTF 

ADD #10. SP . 
PRINTF #FMTS, #BASADD, RLBAS. #ORUNAM, <B. RLDRV+1> 
CLR - (SP) 

B'SB RLORV+41, (SP) 

MoV #ORVNAM, - (SP) 

MOV RLBAS, -(SP) 

MoV #BASADD. - (SP) 

MOV RFMTS, -(SP) 

MOV #5,- (SP) 

MOV SP. RO 

EMT CSPNTF 

AD #14,SP 

PRINTF &FMT3 

MoV #FMT3,-CSP) 

MOV #1,- (SP) 

MOV SP, RO 

EMT CSPNTF 

ADD #4, SP 

DODU PSETNM > DROP DRIVE 


MoV PSETNM. RO 

ENT C$D0DU 

DOCLN *GO TO CLEAN UP 
ENT oe 


READ AND STORE ALL RL11 REGISTERS 
MoV RLCSR(R2).T.CS GET CS REG 


SEQ 0059 


OUTERR 
DZRLOA 


4039 
4040 
4041 
4042 
4043 
4O44 
4045S 
4046 
4047 
4048 
4049 
4050 
4051 


MACY11 30(1046) 
. PTI O4-NOV-77 13:13 


014536 
014544 
014552 
014560 


014562 
014564 
014570 
014576 
014600 
014604 
014610 
014612 
014620 
014626 
014630 
014636 
014640 
014640 
014644 
014646 
014654 
014656 
014662 
014670 
014672 
014676 
014700 
014704 
014712 


014714 
014720 
014724 
014730 


014732 
014736 
014744 
014746 
014752 
014760 
014762 
014766 
014772 
014774 
015000 
015002 
015010 
015016 
015022 
015024 
015026 


016237 
016237 
016237 
000207 


011646 
005066 
032762 
001420 
004737 
005737 
001433 
012766 
032737 
001403 
012766 
000207 


012700 
104026 
032762 
001006 
004737 
012766 
000762 
005737 
001345 
004737 
012766 
000751 


005037 
105037 
005037 
000207 


013746 
012737 
000412 
013746 


012737 


O4-NOV-77 


000002 
000004 
000006 


000002 
000200 


014530 
002420 


005603 
002000 


005622 


000003 
000200 


014530 
005705 


002420 


014530 
005652 


002416 
002657 
002426 


002540 
000013 


002540 
000003 


002540 
002540 


002414 
000004 


000004 
002414 


000002 


002460 
002462 
002464 


000000 


000002 
002456 


000002 


00c000 


000002 


000002 


002540 


002540 


002250 
002250 


002430 


WAI TIN: 


18: 


23: 
4S: 


38: 
5S: 


TSTINT: 


GSTATR: 


GSTATC: 


GSTAT: 


GSTATG: 


13:30 PAGE 83-27 


MOV RLBACR2),.T.8A ;GET BUS ADDRESS REG 
MOV RLDA(R2).T.0A ;GET DISK ADDRESS 
MOV RLMP(RZ2),T. MP ;GET MULTI-PURPOSE REG 


RTS PC + RETURN 

WAIT FOR CONTROLLER TIMEOUT TO FORCE INTERRUPT ROUTINE 

MOV J 4 hans ;MAKE ROOM FOR ERROR POINTER 

CLR 2(SP) CLEAR FOR POINTER 

BIT #CROYMSK, RL CSR(R2Z) +; TEST IF CONTROLLER READY 
BEQ 4$ +NO - SKIP TO WAIT 

JSR PC, READRL ;READ ALL RL REGS 

TST DONE +; TEST IF INTERRUPT OCCURRED 

BEQ 5$ ;NO - GO SET NO INTERRUPT ERR FLAG 


MOV #MTOSLOW, 2(SP) ELSE SET TO SLOW ERROR POINTER 
BIT #OPIERR,T.CS TEST IF ba SET 


BEQ 2$ NO - SK 

MOV #MORRES, 2(SP) ; SET neSSAGE FOR NO DRIVE RESPONSE 

RTS PC + RETUR 

WAITMS #3 ;WAIT 300 MS FOR TIMEOUT 

MOV #3,R0 

ENT CSWTM 

BIT #CROYMSK, RLCS(R2) Ae gs IF READY NOW SET 

BNE 3$ YES - & 

JSR PC, READRL ; READ RL REGS 

ong ~aeaane pets 4h MESSAGE FOR CONTROLLER HUNG 
KIP 

TST DONE 7 ELSE CHECK IF INTERRUPT OCCURRED 

BNE 1$ + YES - SKIP TO SET TO SLOW 

JSR PC, READRL READ RL REGS 

MoV @MNOINT,2(SP)  -;ELSE SET NO INTERRUPT FLAG 

BR 23 +GO TO RETURN 

OPERATION AND TEST INITIALIZE ROUTINE 

CLR OPFLAG >CLEAR OPERATION FLAGS 

CLRB NOERCT RESET INHIBIT ERROR COUNTING 

CLR MORECE RESET MORE COMPARE ERRORS 

RTS PC 

GET STATUS AND GET STATUS WITH RESET ROUTINE 

MOV TEMP4, - (SP) STORE TEMP4 

MOV #GETSTAT!ORSET. TEMPY ;SET FOR RESET 

BR GSTATG 

MOV TEMP4, -(SP) STORE TEMP4 

MoV SGETSTAT. TEMPS ;>SET FOR NO RESET 

BR GSTATG 

MOV TEMPY, -(SP) STORE TEMPY 

CLR TEMPY SET FOR SAVE L. AND T. REGS 

MOV R3,-(SP) STORE R3 


MOV SSINDX. R3 +GET SUBROUTINE INDEX 

TST (R3)+ >BUMP IT FOR NEXT ENTRY 

MoV 4(SP), SUBSTK(R3) ; INSERT THIS CALL 

SUB #4,SUBSTK(R3)  ;ADJUST IT TO CALLING LOCATION 
MOV R3,SSINDX + STORE IT BACK 

MoV RO, - (SP) STORE RO 

MOV R1,-(SP) STORE R1 

MoV #2, ERRSHI SET FOR NO ERROR RETURN 


SEQ 0060 | 


OUTERR 
DZRLOA 


.PTA 


MACY11 30(1046) 
O4-NOV-77 


015034 
015042 
015044 
015052 
015054 
015054 
015060 
015062 
015066 
015072 
015074 
015102 
015104 
015112 
015114 


015122 
015124 
015132 
015134 
015142 
015144 
015144 
015150 
015152 
015154 
015156 
015162 
015162 
015164 
015166 
015170 
015172 
015176 
015200 
015204 
015210 
015212 
015214 
015216 
015224 
015226 
015234 
015234 
015240 
015246 


015312 


032737 
001453 
032762 
001403 


012700 
104026 
012701 
004737 
015526 
032737 
001051 
032737 
001010 
032737 


001441 
052737 
000435 
032737 
001031 


012700 
104026 
005301 
001344 
012703 


104443 
023421 
011344 
000554 
005737 
001013 
012701 
012703 
014346 
005301 
001375 
012737 
000403 
013737 


005037 
013737 
042737 
052737 
013762 
013762 


013737 


O4-NOV-77 


13:13 
000010 
040000 


000003 


000062 
014762 


000001 
000020 
144000 


040000 
040000 


000001 


007771 


002540 


000004 
002456 


000003 
002540 
002420 
002444 
002000 
000104 
002452 
002446 
000001 
002420 


002464 


002540 
000000 


002456 
002464 
002464 


002416 
002456 


002452 


002452 


002446 
002446 
002446 
000004 
000000 


002472 


49S: 
505: 


515: 


11%: 


5S: 
6$: 


4$: 


13:30 PAGE 83-28 


#ORSET. TEMP4 


PC, GSTAT 
#ORDYNSK. T. CS 
5$ 

#HOSTAT, T. MP 
51$ 


4 ps IF _— RESET 


11$ NO - SKIP 
rDRVERR. RLCS(R2)_ im ERROR SET 


KI 
;WAIT FOR 300 MS FOR DRIVE TO SETTLE 


SET WAIT FOR 5 SEC 
GET ORIVE STATUS 


+ TEST IF DRIVE READY 
YES - GO DO CLEAR 
/ELSE TEST IF HEADS OUT 
YES - BYPASS RELOAD WAIT FLAG SETTING 


YE 
#SPDSTAT!HCESTAT !WDESTAT. T. MP ; TEST IF DRIVE HAS ERROR 


5$ 
 eaaate tebe 
#DORVERR.T.CS 


508 
#MUNDEF,R3 
10001..-ERR1 
TSERCODE 
10001 


#4,R1 

#L. MP+2,R3 
-(R3),-CSP) 
Ri 


8$ 
#GETSTAT.L. DA 
6$ 

TEMP4Y.L. DA 


DONE 
RLORV.L.CS 
#81T10.L.CS 
@GTSTAT.L.CS 
L. DA. RLDACR2) 
L. CS, RLCSR(R2) 
#1 

#1,R0 

CSWTU 

DONE 


1$ 
T. MP, T. STAT 


; THAT CAUSED HEADS TO 
+ UNLOAD 
;NO - SKIP 


| 
-ELSE SET WAIT FLAG 
SKIP TO CLEAR 
TEST iF DRIVE ERROR NOW 
+YES - SKIP TO CLEAR 


*WAIT FOR ORIVE TC GET ERROR. RDY, OR HC 


DEC WAIT COUNTER 
+ 1F NOT DONE, LOOP 
;MESSAGE FOR UNDEFINED STATE 


7 EXIT 
>; TEST IF SAVE REGISTERS 
SKIP 


NO H 

;SET SAVE COUNT 

;SET ADDRESS OF FIRST SAVE 
+PUT REG ON STACK 

+DEC COUNT 

>;LOOP UNTIL ALL SAVED 
+e FOR GET STATUS 


+ SK 

INSERT PRESET FOR STATUS 
>CLEAR INTERRUPT FLAG 

;SET UP TO GET STATUS 

>CLEAR FOR DRIVE 4 - 7 SPEC'D 
+LOAD RL REGS 

+LOAD CS REG 

+WAIT 100 US FOR INTERRUPT 
CHECK IF INTERRUPT OCCURRED 


;NO - SKIP 
;STORE MP REGISTER 


OUTERR 


DZRLOA. 


4140 
4141 
4142 
4143 
4144 
4145 
4146 
4147 
4148 

(3) 

(3) 


PTi 


MACY11 3001046) 
O4-NOV-77 


015320 


015550 
015552 


042737 


001016 


012700 
104026 
005301 
001367 
004737 
015526 
012703 


104443 
023423 
011344 
000442 


012700 
104027 
004737 
015526 
032737 
001432 
032737 
001403 
012703 
000416 
032737 
001404 


104443 
023424 
011646 
000411 
012703 
000403 
004737 
012693 


162737 


O4-NOV-77 


13: 13 


177770 
000010 


040000 
001130 
000001 


000001 


014762 
010036 


000012 
014762 
100u00 
001000 
005751 
040000 


005772 
014562 


002430 
002540 


002446 
000004 


000002 002414 22%: 


002472 
002452 
002416 


000000 


002456 
002464 


002456 


135: 


12: 


7S: 


-°9§: 
18: 
23. 


14S: 


3$ 


208: 


13:30 PAGE 83-29 


# C<STAMSK>. T. STAT Se ALL BUT STATE 
. 0A TEST 


#ORSET.L 


3$ 
“temic tea 
12$ 


$ 
PC, GSTAT 
#MRLFAL,.R3 
10003..,,ERR1 


TSERCODE 
10003 


CSWT 

PC, GSTAT 
#ANYERR, T. CS 
3$ 
RVCSTAT. T. MP 
7$ 
RVCNRST,R3 
2$ 
#ORVERR,.T.CS 
9$ 

10004... ERR6 
TSERCODE 
10004 
ERRO 

14$ 
#UNXERR, R3 

$ 
PC, WAITIN 


(SP )+,R3 
10002... ERR1 
CODE 


(SP)+, (R3)+ 
R1 


208 
#2, SSINDX 


F RESET WAS SPECIFIED 
NO - ski P TO EXIT 
TEST Mf RELOAD WAIT FLAG SET 


O- 
T WAIT COUNT FOR 6C SECONDS 


#600., ; SE 
FORDYHSK, RLCS(RZ) ; TEST IF DRIVE NOW READY 
$ YES - SKIP 


; CALL WAIT 


+DEC COUNT 

;LOOP IF NOT O 

+GET DRIVE STATUS 

ERROR RETURN 

+ SET RESULT MESSAGE POINTER 


;GO TO EXIT 
;WAIT FOR 1MS 


GET DRIVE STATUS 


; TEST IF ANY ERROR 

+NO - SKIP 

; CHECK IF VOLUME CHECK RESET 
> YES SKIP 

;SET REASON POINTER 

; EXIT 

; CHECK . ~~ ERROR 

+NO - SK 


SEXIT 

;SET REASON POINTER 

;EXIT 

;WAIT FOR INTERRUPT 

; STORE REASON POINTER FOR RETURN 


;CLEAR FOR ERROR RETURN 

; TEST IF REGISTERS WERE SAVED 
;NO - SKIP 

;SET POINTER TO RESTORE 

;SET REGISTER COUNT 

;RESTORE REG 

>DEC COUNT 

;LOOP UNTIL ALL ARE RESTORED 
;REMOVE ENTRY FROM SUBROUT STACK 


SEQ 0062 


OUTERR 
DZRLCA 


4183 
4184 
4185 
4186 
4187 
4188 
4189 
4190 
4191 
4192 
4193 
4194 
4196 
4197 
4198 
4199 
4200 


PTA 


MACY11 30(1046) 
04 77 


015560 
015562 


015612 


015614 
015622 
015624 
015630 
015632 
015636 
015640 
015646 
015654 
015660 
015662 
015664 
015666 
015674 


015700 
015704 
015706 
015714 
015722 


016046 


-NOV- 
012601 


017616 
000207 


012737 
000402 
005037 
010346 
013703 
005723 
016663 
162763 
010337 
010046 
010146 
010546 
012737 
005037 


004737 
016264 


012737 


04-NOV-77 
13: 13 


002540 
002430 


002430 
000000 


177777 
002532 
002414 
000002 


000004 
002414 


000002 
002510 


020652 


002516 
002514 


000377 
002514 
000377 


002514 
002514 
002514 
002514 
002516 
002514 
000001 
002522 
002520 
002510 
002514 


000001 


002532 


002250 
002250 


002430 


002512 
000377 


002514 
002510 
002514 


002510 


002522 


000377 
002522 


995: 


XSEEKT: M 
XSEEK: 


XSEEK1: 


38: 


6S: 


135: 
14S: 


13:30 PAGE 83-30 


(SP)+,R1 
(SP)+, TEMP4 
ERRSWI 

99% 

ERRSWI, (SP) 
PC 

a( SP), (SP) 
PC 


hy om’ 1, 


1, TEMP 1 


SSINOX,R3 
(R3)+ 


sRESTORE R1 

s RESTORE R3 

sRESTORE TEMPY 

+ TEST IF an RETURN 
+YES - SK 

;ADD IN ERROR RETURN 


+SET ERROR RETURN ADDRESS 


+SET SPECIAL TIMING SEEK FLAG 
CLEAR SPECIAL SEEK FOR TIMING FLAG 
;STORE R3 


+$TO 
GET SUBROUTINE INDEX 
BUMP IT FOR NEXT ENTRY 


2(SP), SUBSTK(R3) ; INSERT THIS CALL 


#4, SUBSTK(R3) 
R3. SSINOX 

RO, -(SP) 

R1, - (SP) 

RS, -(SP) 

#2, ERRSWI 

DIF AUG 


PC, GETPOS 


CURCYL, OLDCYL 
NEWCYL, #255. 


3$ 
#255. , NEWCYL 
NEWCYL, DIF AUG 
poem ci 
6 


NEWCYL 
6$ 


NEWCYL 
NEWCYL, DIF AUG 
NEWCYL 
CURCYL, RS 
NEWCYL, RS 


13% 

#1.DESSGN 

R5 

14$ 

DESSGN 

RS. DESDIF 

DIF AUG 

18$ 

NEWCYL, #255. 
7$ 


1 
#1,DESSGN 


;ADJUST 1T TO CALLING LOCATION 
+STORE !T BACK 


STORE REG 

+SET FOR NO ERROR RETURN 

/ CLEAR DIFFERENCE AUGMENT (FOR SEEKING 
+ _ PAST GUARD BAND) 

GET PRESENT POSITION 


;MOVE CURRENT TO OLD CYLINDER 

+ TEST IF NEW IS GREATER THAN 255 
;NO - SK IP 

sELSE SUBTRACT 255. 

+STORE DIFFERENCE AS AUGMENT 
+H NEWCYL AS 255. 


+ SK 
TEST ip mn HAS NEGATIVE VALUE 
*ELSE MAKE IT POSITIVE 

;AND STORE 1T AS AUGNMENT 

+AND SET NEWCYL TO O 

>COMPUTE DIFFERENCE AND NEW CYLINDER 
+SUB NEWCYL FROM CURCYL 

7 IF DIFF IS POSITIVE - SKIPCREV SEEK) 
ELSE SET SIGN FOR FORWARD 

pr DIFFERENCE POSITIVE 


Kl 
;SET SIGN FOR REVERSE 
7; STORE DIFFERENCE 
; 1S THERE A DIFFERENCE AUGMENT 
;NO - SKIP 
;CHECK IF NEW CYL IS 255. 
;NO - SKIP 
;ELSE FORCE SIGN FOR FORWARD 
> CINNER GUARD BAND) 


ai 


OUTERR 


DZRLCA. 


PTi 


MACY11 30(1046) 


016054 063737 


012705 


014562 


012700 
104027 
005737 
001011 
004737 
012603 


104443 
023425 
011344 
005037 
000410 
005737 
100005 


104443 
023426 


016314 000207 


O4-NOV-77 


O4-NOV-77 
13: 13 


002510 002520 
002446 
000106 
002444 
002000 


002520 
000007 


002522 


000004 
002524 


000020 
000001 
016664 


002420 
002532 


000004 
00C002 
000u00 
000012 
002420 


014562 


002430 
002456 


002430 


000002 902414 


002430 
002430 


175: 
18$: 


215: 


235: 


255: 


30S: 


32%: 


653: 


13:30 PAGE 83-31 


ADD 


DIFAUG. DESDIF 


#L. CS,R5 
#SEEK, (RS) 
RLORV, (RS) 
#B1T10, (R5S)+ 


(RS)+ 
DESDIF, (RS) 
#7,R0 


#DIRBIT, (RS) 
DESHD 


25% 

#HOSEL, (R5) 
#MBSETO, (RS)+ 
PC, RDYCHK 


DONE 

TEMP 1 

65% 
~(R5),RLDACR2) 


~(R5),RLBACRZ) 
~(R5),RLCS(R2) 


PC, WAITIN 
(SP)+,R3 
10005. .,ERR1 
TSERCODE 


10006. ..ERR6 
TSERCODE 
10006 
ERR6 
ERRSWI 
#2. SSINDX 
(SP)+,R5 
(SP)+,R1 
(SP)+,R0 
(SP)+,R3 
ERRSWI 


99% 
ERRSWI. (SP) 
PC 


;ADD ANY AUGMENT TO DIFFERENCE 


+GET L REG ADDRESS 

+SET FOR SEEK 

+ INSERT DRIVE NUMBER 

;CLEAR IF DRIVE 4 - 7 SPEC'D 
+CLEAR BUS ADDRESS 

+LOAD DIFFERENCE 

+SET TO SHIFT DIFFERENCE 


+LOOP UNTIL ALIGNED 
+ TEST SIGN 

+SKIP IF O 

+ELSE INSERT SIGN 

+ TEST IF HEAD O 

;YES - SKIP 

ELSE SET HEAD BIT 

+ INSERT MARKER BIT 
CHECK IF DRIVE READY 


*;CLEAR INTERRUPT FLAG 

CHECK IF SPECIAL SEEK FLAG SET 
YES - SKIP, DO NOT START SEEK 
+LOAD RL REGISTERS 


TEST IF oe DONE 
YES - SK 

GO WAIT FOR INTERRUPT 

+GET RESULT MESSAGE POINTER 


CLEAR FOR ERROR ERROR RETURN 


+ TEST IF ANY ERROR 
*NO - SKIP 


>CLEAR FOR ERROR ERROR RETURN 
;REMOVE ENTRY FROM SUBROUT STACK 
RESTORE REGISTER 


;RESTORE R3 

+ TEST IF _— RETURN 
+YES - SK 

ADD IN ERROR RETURN 


SEQ 0064 | 





MACY11 30(1046) 
PTi 77 


O4-NOV- 


016316 
016322 


016324 
016326 
016332 
016334 
016342 
016350 
016354 
016356 
016360 
016366 
016372 
016374 
016400 
016400 
016402 
016402 
016404 
016404 
016406 
016412 
016414 
016422 
016424 
016430 


016546 


017616 
000207 


010346 
013703 


012704 
104004 
104020 


103012 
004737 
016624 
023737 
001017 
004737 
000414 
013737 
023705 
001467 
003003 
005237 
000402 
005337 
004737 
016624 
012701 
004737 
016624 
005737 
100006 


104443 
023430 


012704 
000715 


04-NOV- 
13: 13 


000000 


002414 
000002 


000004 
002414 


000002 
020652 
000012 


020652 
002516 
017210 
002516 
002516 
002514 


002514 
015624 


005670 
020404 


002456 


002430 
020652 
002516 
000012 


77 «13:30 PAGE 83-32 


002250 
002250 


002430 


002514 


002512 


002514 


995: 


’ 


POSHDS: 


BGNSEG 


15: 


5S: 


75: 
8$: 


10S: 


148: 


MOV 
RTS 


O(SP), (SP) 
PC 


i; SET ERROR RETURN ADDRESS 


POSITION HEADS ROUTINE. POSITIONS HEADS USING 1 CYLINDER SEEKS 


TO CYLINDER we IN RS BY THE CALLING ROUTINE 


SAVE REGS 
GET SUBROUTINE INDEX 
+BUMP IT FOR NEXT ENTRY 


(R3)+ 
2(SP), SUBSTK(R3) ; INSERT THIS CALL 


MOV = ( 

MOV SS 1NDX.R3 
TST 

MOV 

SUB #4, SUBSTK(R3) 
MOV R3. SSINDX 
MOV R3,-(SP) 

MOV R4, -(SP) 

MoV #2, ERRSWI 
JSR PC, GETPOS 
#PHESS 

MOV #10. ,.R4 

ENT CS$BSEG 
INLOOP 

EMT CSINLP 
BNCOMPLETE 5$ 
BCC 5$ 

JSR PC, GETPOS 
#605 

CMP CURCYL, NEWCYL 
BNE 

JSR PC, ONSWAP 

BR 8$ 

MOV CURCYL, OLDCYL 
CMP CURCYL. RS 
BEQ 605 

BGT 7$ 

INC NEWCYL 

BR 8$ 

DEC NEWCYL 

JSR PC, XSEEK 
#608 

MOV #3000. .R1 
JSR PC, RDYWAIT 
#60$ 

TST T.¢cs 

BPL 10$ 

ERRHRD 10008..,ERR6 
TRAP TSERCODE 
.WORD 10008 

.WORD ERR6 

CLR ERRSHI 

BR 60% 

JSR PC. GETPOS 
#60$ 

CMP CURCYL. NEWCYL 
BNE 15$ 

MOV #10..R4 

BR 1$ 


;ADJUST IT TO CALLING LOCATION 
+STORE IT BACK 


+SET FOR NO ERROR RETURN 
GET CURRENT POSITION 


;SET RETRY COUNT 


; CHECK IF IN ERROR LOOP 
>;NO - SKIP 
+ELSE GET POSITION 


4 peg Nyt INTENDED POSITION 
+N = 
SWAP OLDCYL AND NEWCYL 

+ SKIP 


7 IN NOT LOOPING. STORE CURCYL AS OLDCYL 
;CHECK IF HDS AT FINAL POSITION 

*YES - GO TO EXIT 

+ 1F CURCYL > FINAL POSITION - SKIP 
os BUMP NEWCYL (MOVE HDS IN) 


+ SK 
‘DEC * NEWCYL (MOVE HDS OUT) 
SEEK 


; 


*SET WAIT COUNT 300 MS 
+WAIT FOR DRIVE READY 


+ TEST IF ANY ERROR 
*NO - SKIP 


>CLEAR FOR ERROR ERROR RETURN 
GET POSITION 


;CHECK IF ARRIVED AT DESIRED PLACE 
;NO - SKIP 

;ELSE INIT RETRY COUNT 

;GO DO NEXT SEEK 


SEQ 0065 





OUTERR 


DZRLOA. P 


— 30( 1046) 
O4-NOV-77 13: 


016550 


016656 
016662 


016664 
016666 


016764 
016770 


005737 


012703 


104443 
023431 
011344 
005037 
ooc40s 
023737 
002750 
000761 


104005 
162737 
012604 
012600 
012603 
005737 
001403 
063716 
000207 
017616 
000207 


010346 
013703 
005723 
016663 
162763 
010337 
010046 
010146 
010446 
012737 
012701 
004737 
017060 
032737 
001045 


012700 
104027 
005301 
001364 
012703 
012704 


002522 
002516 


006762 


002430 
002516 


000002 


002430 
002430 
000000 


002414 
000002 


000004 
002414 


000002 
011610 
014762 


000001 


000001 


007333 
010261 


O4-NOV-77 
13 


002514 


002514 


002414 


002250 
002250 


002430 


002456 


155: 


165: 


ENDSEG 
10000$: 


PH6SS: 


995: 


RDYCHK: 


13:30 PAGE 83-33 


DRIVE READY TEST ROUTINE. CHECKS DEIVE IS READY 
SOOMS FOR READY TO SET. 


DESSGN 

17$ 

CURCYL. NEWCYL 
14$ 

RY 


8$ 
#HOMOVF, RZ 
4 gy 


60 
CURCYL, NEWCYL 
14$ 
16% 


CSESEG 
#2, SSINDX 
(SP)+,R4 
(SP)+,R0 
(SP)+,R3 
ERRSHI 


998 

ERRSWI, (SP) 
PC 

(SP), (SP) 
PC 


R3, -(SP) 
SSINDX, R3 
(R3)+ 


+ TEST IF GOING IN 
sYES - SKIP 

;CHECK IF HEADS DID NO 
+YES - SKIP 

DEC RETRY COUNT 

D0 ANOTHER SEEK IF 


T MOVE IN 


NOT 0 
sELSE SET RESULT MESSAGE POINTER 


+ CLEAR FOR ERROR ERROR 


+ HOS gy MOVE OUT. 
;YES - SK 
*ELSE GO DEC AND RETRY 


;REMOVE ENTRY FROM SUB 
RESTORE REGISTERS 


TEST IF pee RETURN 
7 vES = SK. 
;ADD IN ERROR RETURN 


SET ERROR RETURN ADOR 


STORE REGS 
+GET SUBROUTINE INDEX 
;BUMP IT FOR NEXT ENTR 


2(SP),SUBSTK‘R3) ; INSERT THIS CALL 


#4, SUBSTK(R3) 
R3, SSI NDX 
RO, - (SP) 
R1,-(SP) 

R4, -(SP) 

#2, ERRSHI 
#5000. .R1 

PC, GSTAT 


#ORDYMSK, T. CS 


#MORDY, RZ 
#CSOONS, R4 


+ADJUST IT TO CALLING 
; STORE IT BACK 


RETURN 
CHK THEY DID 


ROUT STACK 


ESS 


Y 
LOCATION 


+ SET FOR NO ERROR RETURN 


SET WAIT COUNT 
+GET ORIVE STATUS 


; TEST IF DRIVE READY 
;YES - EXIT 


>DEC WAIT COUNT 
>LOOP IF NOT O 


;SET RESULT MESSAGE POINTER 
SET CONDITION MESSAGE POINTER 


1F NOT, WAIT 


SEQ 0066 


l ad ae 7 


OUTERR 


DZRLCA. 


MACY11 30(1046) 
O4-NOV-77 13:13 


PTi 


016774 
016774 
016776 
017000 
017002 
017006 
017012 
017014 
017022 
017024 
017024 
017030 
017032 
017034 
017036 
017044 
017046 
017046 
017050 
017052 
017054 
017060 
017064 
017072 
017074 
017076 
017100 
017102 
017106 
017110 
017114 
017116 
017122 


017124 
017130 
017136 
017140 
017146 


017150 
017156 
017160 
017164 
017166 
017174 
017200 
017202 
017206 


017210 


104443 


001005 


012700 
104026 
00£301 
001364 
032737 
001405 


104443 
023433 
011646 
C05337 
005037 
162737 
012604 
012601 
012600 
012603 
005737 
001403 
063716 
000207 
017616 
000207 


005037 
032737 
001403 
013737 
000207 


032737 
001011 
005737 
001006 
012737 
062716 
000207 
017616 
000207 


010046 


O4-NOV-77 


000062 
014762 


000001 


000001 


100000 


002650 
002430 
000002 


002430 
002430 
000000 


002524 
010000 


013170 


010000 
002524 


000001 
000002 


000000 


002456 


002456 


002414 


013162 
002524 


013162 


002524 


25: 


35: 


4S: 
5S: 


995: 


CHOSHD: 


SWAPHD: 


23: 
3$: 


ONSHAP: 


13:30 PAGE 83-34 


ERRHRD 


10010. ,,ERRS 
TSERCODE 


#50. .R1 
PC, GSTAT 
#ORDYNSK. T. CS 


#ANYERR, T. CS 
4§ 


10011... ERR6 
TSERCODE 
10011 
ERR6 
ERRCNT 
ERRSWI 
#2, SSINDX 
(SP)+,R4 
(SP)+,R1 
(SP)+,R0 
(SP)+,R3 
ERRSWI 


998 

ERRSWI, (SP) 
P 

(SP), (SP) 
PC 


SEQ 0067 


s;SET WAIT COUNT FOR 5 SECONDS 
GET DRIVE STATUS 


+ TEST IF DRIVE READY 
+YES - SKIP 
;WAIT FOR 100MS 


;DEC WAIT COUNTER 
;LOOP UNTIL TIME DONE 
+ TEST IF ANYERR SET 
;NO - SK KIP 

;REPORT ALL ERRORS 


+REDUCE ERROR COUNT FOR DUAL ERRORS 
+ CLEAR FOR ERROR RETURN 

REMOVE ENTRY FROM SUBROUT STACK 
;RESTORE REGS 


> TEST IF ERROR RETURN 
>YES - SKIP 
;ADD IN ERROR RETURN 


SET ERROR RETURN ADDRESS 


CHOSE HEAD ROUTINE. PICKS HEAD O UNLESS SPECIFIC HEAD IS 
SELECTED BY SOFTWARE PARAMETER 


CLR 
BIT 
BEQ 
MOV 
RTS 


DE SHD 
#HEADLM. MISWIW 


1$ 
HEADW, DE SHD 
PC 


;CLEAR TO HEAD 0 
; TEST IF HEAD SPECIFIED 


+NO - SKIP 
> INSERT SPECIFIED HEAD 


SWAP HEAD ROUTINE. CHANGES SELECTED HEAD TO HEAD 1 
UNLESS HEAD O SPECIFICALLY SELECTED BY SOFTWARE PARAMETER. 


MOV 


@HEADLM, MISWIb 
2$ 

De SHD 

2$ 

#1, DESHD 

#2, (SP) 


PC 
(SP), (SP) 
PC 


RO, - 


; TEST IF HEAD SPECIFIED 
> YES - TAKE ABORT EXIT 

; TEST IF HEAD ONE ‘USED 

+ YES - TAKE ABORT EXIT 

;ELSE SET FOR HEAD ONE 

;BUMP PAST ABORT RETURN 
> RETURN 

;GET ABORT DESTINATION 


SWAP OLD —— AND NEW CYLINDER ROUTINE. 
STORE RO 


OUTERR 
DZRLCA. 


4495 
4496 
4497 
4498 
4499 


MACY11 30(1046) 


O4-NOV-77 


PT1 O4-NOV-77 13:13 


017212 
017216 
017224 
017230 
017232 


017234 
017240 
017242 
017242 
017246 
017252 
017256 
017260 
017262 
017266 
017266 
017270 
017274 
017300 
017304 
017310 
017314 
017320 
017322 
017324 
017330 
017330 
017334 
017340 
017342 
017344 
017350 
017356 
017364 


017366 
017374 
017376 
017402 
017404 
017410 
017412 
017420 
017426 
017432 
017434 
017436 
017440 
017446 
017452 
017454 


013700 
013737 
010037 
012600 
000207 


005737 
001051 


012746 
012746 
012746 
010600 
104017 
062706 


005046 
153716 
012746 
013746 
012746 
012746 
012746 
010600 
104017 
062706 


012746 
012746 
010600 
104017 
062706 
012737 
012737 
000207 


012737 
000402 
005037 
010346 
013703 
005723 
016663 
162763 
010337 
010046 
010146 
010446 
012737 
005737 
001007 
012703 


002512 
002514 
002514 


002664 


007232 
010633 
000002 


000006 


002445 
005423 
002440 
005412 
010447 
ooco0s 


000014 
010433 
000001 


000004 
177777 
177777 


000001 
002540 
002414 
000002 


000004 
002414 


000002 
002540 


002456 


002512 


002666 
003062 


002540 


002250 
002250 


002430 


13: 30 


, 


, 


CKBSVD: 


5S: 


XRDHOC: 
XRDHD- 


XRDHODG: 


PAGE 83-35 


MOV OLOCYL. RO MOVE OLD TO RO 
MOV NEWCYL,OLOCYL ;MOVE NEW TO OLD 
MOV RO. NEWCYL ;PUT OLD IN NEW 
MOV iliac +RESTORE RO 


BAD SECTOR FILES VALID CHECK ROUTINE. CHECKS IF BAD SECTOR 
FILES HAVE BEEN READ AND STORED. IF NOT. REPORT AND FORCE 
FORCE ne TO LOOK LIKE ALL SECTORS OK. 

TST BSF VAL ; TEST IF BAD SECTORS STORED 

BNE 5$ SYES - EXIT 

PRINTF #FMTS.#BSNSTR ;REPORT 

MOV #BSNSTR, -(SP) 


MOV SP.RO 

EMT CSPNTF 

ADD #6, SP 

PRINTF at RLBAS, #ORVNAM. <B, RLORV+1> 
CLR ~ (SP 


BiSB RLORVSL, (SP) 
MOV #ORVNAM, - (SP) 
MOV RLBAS, -(SP) 
MOV ®#BASADD. -(SP) 


MoV #1,-(SP) 
MOV SP, RO 
EMT CSPNTF 
ADD #4, SP 


MOV #-1, SBSFIL /FORCE FILES TO NO ENTRIES 


MOV #-1,FBSFIL 
PC 


RTS 

READ HEADERS ROUTINE. 

MOV #1, TEMPY + SET —_ TO BYPASS REG STORAGE 
BR XROHDG GO DO 

CLR TEMPY ; SET FLAG TO SAVE T. AMD L. REGS 


+ STORE REGISTERS 

+GET SUBROUTINE INDEX 

TST (R3)+ *>BUMP IT FOR NEXT ENTRY 

MOV 2(SP), SUBSTK(R3) ; INSERT THIS CALL 

SUB #4, SUBSTK(R3) ;ADJUST IT TO CALLING LOCATION 
MOV R3, SSINDX +STORE !T BACK 

MOV RO, -(SP) 
MOV Ri, -(SP) 
MOV R4, - (SP) 
MoV #2, ERRSUI 
TST TEMPY 


2$ 
MOV #L. MP+2,R3 


SET FOR NO ERROR RETURN 
* TEST IF REGISTERS TO BE SAVED 


;NO - SKIP 
;SET POINTER FOR REGS 


SEQ 0068 


vx” 


OUTERR 


DZRLOA. 


PT1 


MACY11 30(1046) 


017460 012701 
017464 014346 
017466 005301 
017470 001375 
017472 004737 
017476 017732 
017500 005037 
017504 012701 
017510 013711 
017514 042711 
017520 052721 
017524 005021 
017526 0056021 
017530 014162 
017534 014162 
017540 014162 
017544 

017544 012700 
017550 104027 
017552 005737 
017556 001455 
017560 032737 
017566 001033 
017570 012703 
017574 012704 
017600 

017600 104443 
017602 023441 
017604 011576 
017606 012701 
017612 004737 
017616 017726 
017620 032737 
017626 001403 
017630 005037 
017634 000410 
017636 005301 
017640 001364 
017642 012704 
017646 

017646 104443 
017650 023436 
017652 011576 
017654 000424 
017656 005737 
017662 100004 
017664 

017664 104443 
017666 023440 
017670 011646 
017672 000415 
017674 012701 
017700 016221 
017704 016221 
017710 000410 
017712 004737 


O4-NOV-77 
O4-NOV-77 13:13 


000004 


016664 
002420 
002446 
002444 


002009 
000110 


000004 
000002 
000000 
000012 
002420 
000001 


007333 
010300 


000062 
014762 


000001 
002430 


010312 


002456 


002466 
000006 
000006 


014562 


002456 


002456 


1$: 


2s: 


3S: 


5S: 


4S: 


115: 


10S: 


12%: 


14S: 


13:30 PAGE 83-36 


#4,R1 
-(R3),- (SP) 
Ri 


1$ 
PC. RDYCHK 


DONE 

#L.CS.R1 
RLORV, (R1) 
#81710, (R1) 
#ROHEAD, (R1)+ 
(R1i)+ 

(R1)+ 
-(R1),RLDACR2Z) 
-(R1),RLBACRZ) 
-(R1),RLCSR(RZ) 
#10. 

#10.,R0 

CSWTU 

DONE 


14$ 
RORDYMSK.T. CS 
10% 


#MORDY, RZ 
#CAFOT,. RY 


PC, GSTAT 
#ORDYMSK. T.CS 
1 


$ 

#CSSEC, RY 
10014.,,ERRS 
TSERCODE 


1 
10016. .,ERR6 
TSERCODE 


#HOWROZ, R1 
RLMP(R2), (R1I)+ 
RLMP(R2), (RID+ 


658 
PC, WAITIN 


+ SET COUNT 
; SAVE REGISTER 
;DEC COUNT 


;LOOP UNTIL ALL ARE SAVED 
+ CHECK DRIVE READY 


CLEAR INTERRUPT FLAG 

GET ADDRESS OF LOAD REGS 
+LOAD DRIVE NUMBER 

+ CLEAR FOR DRIVE 4 - 7 SPEC'D 
; INSERT COMMAND 


CLEAR BA 
CLEAR OR 


LOAD RL11 REGS 


;WRIT IMS FOR INTERRUPT 


; TEST of Ts FLAG SET 


+NO - SK 


+ TEST '_ iPaive READY 


> YES - 


+ SET "0 READY MESSAGE 
;CONDITION OF AFTER DATA XFER 


+ SET WAIT COUNT FOR 5 SECONDS 


+GET STATUS 


; TEST IF Bi HAS COME READY 


NO - SKI 


CLEAR ERROR SWITCH 
+ SKIP 
; DEC WAIT COUNT 


+LOOP UNTIL TIME DONE 
+SET CONDITION AFTER 5 SECONDS 


sEXIT 
; CHECK FOR ANY ERRORS 
| 


*NO - SKIP 


;REPORT ALL ERRORS 


GET POINTER 


STORE LAST TWO HEADER WORDS 


, EXIT 
;WAIT FOR INTERRUPT 


SEQ 0069 | 


OUTERR 


DZRLCA. 


MACY11 30(1046) 
PTi O4-NOV-77 1 


017716 
017720 
017720 
017722 
017724 
017726 
017732 
017736 
017740 
017744 
017750 
017752 
017754 
017756 
017764 
017766 
017770 
017772 
017774 
020000 
020002 
020006 
020010 
020014 


020016 


020144 


012603 


104443 
023437 
011344 
005037 
005737 
001007 
012703 
012701 
012623 
005301 
001375 
162737 
012604 
012601 
012600 
012603 
005737 
001403 
063716 
000207 
017616 
000207 


010346 
013703 
005723 
016663 
162763 
010337 
010046 
010146 


001406 


104443 
023442 
012734 


002430 
002540 


002446 
000004 


000002 


002430 
002430 
000000 


002414 


000002 
000004 
002414 


000002 
000002 
002426 
003256 
002530 


100177 
000007 


002514 


O4-NOV-77 
3: 13 


002414 


002250 
002250 


002430 
002416 


60S: 
65%: 


208: 


228: 


995: 


VERHDR: 


3S: 


13:30 PAGE 83-37 


VERIFY HEADERS ROUTINE. 
SEQUENCE. 


MOV 

Mov 
TST 
MOV 
SUB 
MOV 


(SP)+,R3 
10015.,,ERR1 
TSERCODE 
10015 

ERR1 

ERRSWI 

TEMPY 

223 
#L.CS.R3 


#4,R1 
(SP)+, (R3)+ 
Ri 


20% 

#2, SSINDX 
(SP)+,R4 

(SP)+,R1 

(SP)+,R0 

(SP)+,R3 

ERRSHI 


995 

ERRSWI, (SP) 
PC 

(SP), (SP) 
PC 


R3,- (SP) 
SSINDX, R3 
(R3)+ 


#4, SUBSTK(P 3) 
R3,SSINDX 

RO. -(SP) 
R1,-(SP) 
R4,-(SP) 
R5,-(SP) 

#2, ERRSWI 
#HORCMP, OPFLAG 
MORECE 

# IBUFF,RY 
aTEMPO, RS 


R3 

CR4), CRS) 
(R4),R1 

# CHOCYL.R1 


3 
Ri, NEWCYL 
4$ 


10018. ,-ERR10 
TSERCODE 
10018 

ERR10 


+GET RESULTS 
; REPORT 


, 


CLEAR FOR ERROR ERROR RETURN 
+ TEST IF REGISTERS WERE SAVED 


+NO - SKIP 


| 
+ SET ste TO RESTORE REGS 


+ SET 


RESTORE REGS 


+ TEST IF ee RETURN 


;YES - SK 


+ADD IN ERROR RETURN 
+ SET ERROR RETURN ADDRESS 


COMPARES 40 HEADERS FOR CONTENT AND 


STORE REGS 


GET SUBROUTINE INDEX 

>BUMP IT FOR NEXT ENTRY 

2(SP), SUBSTK(R3) > INSERT THIS CALL 

;ADJUST IT TO CALLING LOCATION 
STORE IT BACK 


+SET FOR NO ERROR RETURN 
*SET HEADER COMPARE FLAG 
*CLEAR MORE ERRORS FLAG 
+SET POINTER TO HEADERS 
+SET POINTER TO WORK AREA 
+CLEAR FOR WORD COUNTER 
;MOVE HDR WORD TO WORK AREA 
+PUT WORD IN REG 1 

>CLEAR ALL BUT CYLINDER 
*SET oe COUNT 


; LOOP 
>CHECK IF CYLINDER PART GOOD 


>YES - SKIP 
>REPORT ERROR 


COUN 
+ RESTORE NREGISTER 
+DEC COUN 


; LOOP UNTIL ALL ARE RESTORED 
+REMOVE ENTRY FROM SUBROUT STACK 


SEQ 0070 


OUTERR MACY11 30(1046) O4-NOV-77 13:30 PAGE 83-38 


DZRLOA. PT1 O4-NOV-77 13: 13 SEQ 0071 
4627 020146 005037 002430 CLR ERRSWI ; CLEAR FOR ERROR ERROR RETURN 
4628 020152 000454 BR a 
4629 020154 012701 000050 4$: MOV #40..R1 ; SET HEADER COUNT 
4630 020160 042715 100100 BIC #B1T1S!HOHSEL, (RS) +CLEAR HEAD SELECT AND O BIT 
4631 020164 005737 002524 TST DESHD — WE USING HO 0? 

4632 020170 001402 BEQ 5$ SKIP 
4633 020172 052715 000100 BIS #HOHSEL, (R5) INSERT HEAD BIT 
4634 020176 005065 000002 5S: CLR 2(R5) CLEAR 2ND WORD OF WORK AREA 
4635 020202 021524 6S: CMP (RS), (RY)+ ; TEST fy! WORD OK 
4636 020204 001407 BEQ 8$ YES - SK 
4637 020206 005744 TST -(R4) ELSE SET POINTER FOR ERROR 
4638 020210 ERRHRD 10018..,ERRiO ;REPORT 
(3) 020210 104443 TRAP TSERCODE 
(5) 020212 023442 .WORD 10018 
(5) 020214 012734 .WORD = ERR10 
4639 020216 005037 002430 CLR ERRSWI +CLEAR FOR ERROR RETURN 
4640 020222 005724 TST (R4)+ ;RESET POINTER 
4641 020224 005203 8$: INC R3 BUMP WORD COUNTER 
4642 020226 005724 TST (R4)+ + TEST 7 _— 1S 0 
4643 020230 001407 BEQ 12$ +YES - SK 
4644 020232 C22544 CMP (R5)+, -(R4) date POINTERS FOR REPORT 
4645 020234 ERRHRD 10018.,,ERR10 -;REPORT 
(3) 020234 104443 TRAP TSERCODE 
(5) 020236 023442 .WORD 10018 
(5) 020240 012734 .WORD = ERR10 
4646 020242 005037 002430 CLR ERRSWI CLEAR FOR ERROR RETURN 
4647 020246 024524 CMP ~(R5), (RY) + RESET POINTERS 
4648 020250 005724 12S: TST (R4Y)+ +BUMP PAST ECC WORD 
4649 020252 005203 INC R3 BUMP WORD COUNTER 
4650 020254 005215 INC (RS) ;BUMP SECTOR OF EXPECTED HEADER 
4651 020256 011500 MOV (R5).RO ;MOVE EXPECTED HOR TO RO 
4652 020260 042700 177700 BIC # CHDSEC. RO +CLEAR ALL BUT SECTOR 
4653 020264 022700 000050 CMP #40. ,R0 + TEST IF Ay SECTOR 40 
4654 020270 001002 BNE 15% +NO - SK 
4655 020272 042715 000077 BIC #HDSEC, (RS) > CLEAR SECTOR To 0 
4656 020276 005203 15S: INC R3 BUMP HOR WORD COUNTER 
4657 020300 005301 DEC R1 +DEC HEADER COUNT 
4658 020302 001337 BNE 6$ >LOOP IF NOT YET DONE 
4659 020304 162737 000002 002414 65%: SUB #2, SSINDX ;REMOVE ENTRY FROM SUBROUT STACK 
4660 020312 012605 MOV (SP)+,R5 RESTORE REGISTERS 
4661 020314 012604 MOV (SP)+,R4 
4662 020316 012601 MoV (SP)+,R1 
4663 020320 012600 MOV (SP)+,R0 
4664 020322 012603 MOV (SP)+,R3 
4665 020324 005737 002420 TST ERRSWI TEST IF ERROR RETURN 
4666 020330 001403 BEQ 998 YES - SKIP 
4667 020332 063716 002430 ADD ERRSWI. (SP) ROD IN ERROR RETURN 
4668 020336 000207 RTS PC 
4669 020340 017616 000000 999: MOV (SP), (SP) SET ERPOR RETURN ADDRESS 
ay 020344 000207 RTS PC 
4671 
4673 ; POSITION HEAD BIT FROM HEADER OR MULTIPURPOSE REGISTER TO LSB 
4674 020346 013705 002464 POSHW1: MOV HOWRD1,R5 3 bp FOR POSITION HD BIT 'N WO 1 
4675 020352 000402 BR POSHDO + SK 
4676 020354 013705 002464 POSHSB: MOV T.MP,RS > START FOR POSITION HD BIT IN MP 
4677 020360 010146 POSHDO: MOV Ri, -(SP) STORE R 


OUTERR 


DZRLCA. 


4678 
4679 
4680 
4681 
4682 
4683 
4684 
4685 
4686 
4687 
4688 
4689 
4690 
4691 
4€92 
4693 
4694 
4695 
4696 
4697 
4698 
4699 
4700 
4701 
4702 
4703 
4704 

(3) 

(3) 
4705 
4706 
4707 

(3) 

(5) 

(5) 
4708 
4709 
4710 
4711 
4712 
4713 

(3) 

(3) 
4714 
4715 
4716 
4717 

(3) 

(5) 

(5) 
4718 
4719 
4720 
4721 

(3) 

(5) 


MACY11 30(1046) 


PTi O4-NOV-77 13:13 


O4-NOV-77 


020362 
020366 
020372 
020374 
020376 
020400 
020402 


020404 
020406 
020412 
020414 
020422 
020430 
0204 34 
0204 36 
020440 
020442 
020450 
020454 
020456 
020464 
020466 
020470 
020472 


020576 


042705 
012701 
006205 
005301 
001375 
012601 
000207 


010346 
013703 
00£723 
016663 
162763 
010337 
010046 
010146 
010446 
012737 
004737 
020606 
032737 
001052 
005301 
001404 


012700 
104027 
006763 
012703 


104443 
023444 
011460 
012701 
004737 
020606 
032737 
001013 


012700 
104026 
005301 
001364 
012704 


104443 
023445 
011576 
000407 
032737 
001405 


104443 
023446 


177677 
000006 


002414 


000002 
000004 
002414 


000002 
014762 


000001 


000001 


007333 


000062 
014762 


00000! 


000001 


010312 


100000 


13:30 PAGE 


1$: 


’ 


RDYWAIT: 


002250 
002250 


002430 
5S: 


002456 


78: 


6$: 
002456 


002456 8%: 


83-39 


WAIT FOR READY ROUTINE. 
FROM THE CALLING apt his: IN R1. 
MOV 


7 ~ (CSP) 

MOV SSINDX, R3 
TST (R3)+ 
MOV 
SUB #4, SUBSTK(R3) 
MOV R3.SSINDX 
MOV RO, - (SP) 
MOV Ri,-(SP) 
MOV R4Y,-(SP) 
MOV #2, ERRSWI 
JSR PC, GSTAT 

108% 
BIT #DRDYMSK, T. CS 
BNE 98 
DEC Ri 
BEQ 7% 
WAITUS #1 
MOV #1,R0 
EMT CSWTU 
BR 5$ 
MOV #MORDY,R3 
ERRHRD 10020..,ERP3 
TRAP TSERCODE 
.WORD 10020 
.WORD ERR 
MOV #50. ,R1 

JSR PC, GSTAT 

10$ 
BIT RORDYMSK,T.CS 
BNE 8s 
WAITMS #1 
MOV #1,R0 
EMT CSWTM 
DEC R1 
BNE 6$ 
MOV aCSSEC, RY 
ERRHRD 10021.,-ERRS 
TRAP TSERCODE 
-WORD 10021 
.WORD = ERRS 
BR 11$ 
BIT #ANYERR.T.CS 
BEQ 10$ 
ERRHRD 10022..-ERRO 
TRAP TSERCODE 

WORD 10022 


# CHSSTAT.RS 


RS 
Ri 


1$ 
(SP)+,R1 
PC 


‘CLEAR ALL BUT Ban SEL BIT 
SET SHIFT COUN 
+; SHIFT FOR RIGHT JUSTIFY 


sRESTORE Ri 
+ RETURN 

DURATION OF WAIT PASSED TO THE ROUTINE 
+STORE R3 


+GET SUBROUT INE INDEX 
+BUMP IT FOR NEXT ENTRY 


2(SP), SUBSTK(R3) ; INSERT THIS CALL 


;ADJUST IT TO CALLING LOCATION 
STORE IT BACK 


+ SET FOR NO ERROR RETURN 
GET DRIVE STATUS 


CHECK IF READY 


;YES - SKIP 
;DEC WAIT COUNT 
;SKIP IF O 


>SET NAME MESSAGE PTR 
;REPORT READY ERROR 


> SET WAIT COUNT FOR 5S SECONDS 
GET DRIVE STATUS 


TEST IF ORIVE READY 
>YES - SKIP 
*WAIT 100 MS 


+DEC WAIT COUNT 
>LOOP UNTIL TIME DONE 
>SET CONDITION AFTER 5 SECDS 


, EXIT 

; TEST IF ANY ERROR SET 
>NO - SKIP 

>REPORT ALL ERRORS 


SEQ 0072 


OUTERR 


DZRLCA. 


(5) 
4722 
4723 
4724 
4725 
4726 
4727 
4728 
4729 
4730 
4731 
4732 
4733 
4734 
4735 
4736 
4737 
4738 
4739 
4740 
4741 
4742 
4743 
4744 
4745 
4746 
4747 
4748 
4749 
4750 
4751 
4752 
4753 
4754 
4755 
4756 
4757 
4758 
4759 
4760 
4761 
4762 
4763 
4764 
4765 
4766 
4768 
4769 
4770 
4771 
4772 
4773 
4774 
4775 
4776 
4777 


MACY11 3011046) 
PT1 


020600 
020602 


020650 


020652 


020754 
020756 
020762 
020764 
020770 
020772 
020776 


021000 
021002 
021006 
021010 
021016 
021024 


021030 


011646 
005337 
005037 
162737 
012604 
012601 
01260 

012603 
005737 
001403 
063716 
000207 
017616 
000207 


010346 
013703 
005723 
016663 
162763 
010337 
010046 
010546 
004737 
020742 
013703 
042703 
012705 
006203 
005305 
001375 
010337 
162737 
012605 
012600 
012603 
005737 
001403 
063716 
000297 
017616 
000207 


010346 
013703 
005723 
016663 
162763 
010337 


012737 


O4-NOV-77 13:30 PAGE 83-40 
O4-NOV-77 13:13 


002650 
002430 
000002 002414 


002430 
002430 
000000 


002414 
000002 002250 
000004 002250 
002414 
017576 
002464 


100177 
000007 


002516 
000002 9002414 


002430 
002430 
000000 


002414 
000002 002250 
000004 002250 
002414 


000002 9002430 


995: 


GETPOS 


4S: 


65%: 


995: 


VERPOS: 


GET POSITION ROUTINE. READS A HEADER FROM CURRENT CYLINDER 


9 
ERRSWI, (SP) 
PC 
O(SP), (SP) 
PC 


+DEC FOR DOUBLE ERROR REPORT 
CLEAR FOR ERROR ERROR RETURN 
+REMOVE ENTRY FROM SUBROUT STACK 
+RESTORE REGISTERS 


;RESTORE R3 
fey +S - ERROR RETURN 
ADD IN ERROR RETURN 


SET ERROR RETURN ADDRESS 


(WHERE IT 1S PRESENTLY POSITIONED) AND STORES CYLINDER 
NUMBER IN CURCYL. 


VERIFY POSITION ROUTINE. READS A HEADER (USING GETPOS) AND 
CHECKS HEADS ARE POSITIONED = NEW CYLINDER (CURCYL = NEWCYL). 
) 


R3,-(SP) 
SSINDX,R3 
(R3)+ 


STORE REGISTERS 
;GET SUBROUTINE INDEX 
+BUMP IT FOR NEXT ENTRY 


2(SP), SUBSTK(R3) ; INSERT THIS CALL 


#4, SUBSTK(R3) 
R3,SSINDX 

RO, -(SP) 

RS, - (SP) 

PC, XRDHD 


HOWRD1, R3 
& CHOCYL.R3 


R3, CURCYL 
#2, SS1NDX 
(SP)+,R5 
(SP)+,R0 
(SP)+,R3 
ERRSWI 


99% 

ERRSWI, (SP) 
PC 

(SP), (SP) 
PC 


;ADJUST !'T TO CALLING LOCATION 
+ STORE IT BACK 


DO READ HEADER 


GET HEADER WORD 
CLEAR ALL BUT CYLINDER 
+SET SHIFT COUNT 
+ SHIFT TO RIGHT JUSTIFY 


STORE AS CURRENT CYLINDER 
;REMOVE ENTRY FROM SUBROUT STACK 
RESTORE REGISTERS 


> TEST IF ee RETURN 
sVES - SK 
*ADD IN ERROR RETURN 


SET ERROR RETURN ADDRESS 


>STORE P3 
;GET SUBROUTINE INDEX 
;BUMP IT FOR NEXT ENTRY 


2(SP), SUBSTK(R3) ; INSERT THIS CALL 


MOV R3,- 

MoV SSINDX, R3 
TST (R3)+ 

MOV 

SUB #4, SUBSTK(R3) 
MoV R3, SSINDX 
MOV #2, ERRSWI 


*ADJUST IT TO CALLING LOCATION 
STORE IT BACK 


;SET FOR NO ERROR RETURN 


SEQ 0073 


OUTERR 
DZRLOA 


MACY11 30(1046) 
. PTI O04-NOV-77 


021036 
021042 
021044 
021052 
021054 
021054 
021056 
021060 
021062 
021066 
021066 
021074 
021076 
021102 
021104 
021110 
021112 
021116 


021120 
021122 
021126 
021130 
021136 
021144 
021150 
021152 


021336 


004737 


001405 


104443 
O23446 
012574 
005037 


162737 


012603 © 


00£737 
001403 
063716 
000207 
017616 
000207 


010346 


001372 


13:1 
020652 
002514 


002430 
000002 
002430 
002430 
000000 


002414 


000002 
o0co04 
002414 


000002 
000050 


002452 
002524 


000020 
002452 
002450 
000200 


016664 
002446 


077777 
000200 


O4-NOV-77 
13 


002516 


1$: 
002414 65%: 


995: 


RDALHD: 


002250 
002250 


0024 30 
002416 


002446 
002446 
002446 


002452 
000004 33%: 
000002 
000000 


ooco00 6S. 
000000 7%: 


13:30 PAGE 83-41 


PC, GETPOS 
ie cme: 


1 
10022. ., ERR8 
TSERCODE 
10022 

ERRS 

ERRSWI 


#2. SSINDX 
(SP)+,R3 
ERRSWI 

998 

ERRSWI, (SP) 
PC 

(SP), (SP) 
PC 


+GET POSITION 


+ CHECK IF © ean CYL 1S NEW CYL 
+YES - SK 


CLEAR FOR ERROR ERROR RETURN 


+REMOVE ENTRY FROM SUBROUT STACK 
sRESTORE R3 

+ TEST IF —— RETURN 

YES - SK 

ADD IN ERROR RETURN 


;SET ERROR RETURN ADDRESS 


READ ALL HEADERS ROUTINE. 40 HEADERS ARE READ AND STORED 


IN BUFF 


R3, - (SP) 
SSINDX,R3 
(R3)+ 


STORE REGISTERS 
GET SUBROUTINE INDEX 
;BUMP IT FOR NEXT ENTRY 


2(SP), SUBSTK(R3) ; INSERT THIS CALL 


#4, SUBSTK(R3) 
R3, SSINDX 
RO, -(SP) 


#HOR4O, OPFLAG 
# IBUFF.R3 
RLBAS. R4 
#RLMP, RY 
#10.L.CS 
RLORV.L.CS 

i Yee L.cs 


#HDSEL.L. DA 
L. DA. RLDACR2) 
L. BA. RLBACR2) 


RCRDOYMSK, RLCS(R2) 


6$ 
PC, RDYCHK 


L. CS, RLCS(R2) 
#77777,R0 


*ADJUST IT TO CALLING LOCATION 
STORE IT BACK 


+ SET FOR NO ERROR RETURN 
+SET HEADER COUNT 
+SET 4O HOR OP FLAG 
+SET POINTER TO STORE HORS 
GET BASE ADDRESS 
;MAKE IT POINT TO MP REG 
+LOAD FOR READ HEADER. NO INTERRUPT 
; INSERT DRIVE NUMBER 
+CLEAR FOR DRIVE 4 - 7 SPEC'D 
*CLEAR BA 
*CLEAR DA 
+ TEST IF HEAD O 
YES - SKIP 
-ELSE INSERT HEAD 0 
+LOAD RLDA REG 
+LOAD RLBA 
a 1F CONTROLLER READY 
+YES - SK 


sELSE CHECK READY 


LOAD RLCS REG 
SET COUNT FOR WAIT 


@CROYMSK, RLCS(R2) > CHECK THAT OPERATION COMPLETED 
8$ 


RO 
7$ 


+YES - SKIP 
; DEC COUNT 
>SKIP IF NOT YET O 


SEQ 0074 


OUTERR 
DZRLOA 


MACY 11 See 


. PTA O4-NOV-77 


021340 


021434 
021436 
021440 
021444 
021446 
021452 
021454 
021460 


021462 
021464 
021466 
021470 
021474 
021476 
021500 
021504 
021506 
021510 
021514 
021516 
021522 
021524 
021530 
021532 
021534 
021536 


004737 
004737 
012603 


104443 


100006 


104443 
023452 
011646 
005037 
000405 
011423 
011423 
011423 
005301 
001334 
162737 
012604 
012601 
012600 
012603 
005737 
001403 
063716 
000207 
017616 
000207 


010146 
010346 
010446 
012701 
012504 
006304 
016403 
011321 
001421 
021327 
001416 
020427 
001403 
020427 
002413 
005723 
012321 
012321 


04-NOV-77 
13: 13 


014530 
014562 


002430 
002455 


002430 


000002 


002430 
002430 
000000 


003656 


002224 


177777 
000010 
000020 


002414 


83: 


125: 


653: 


99S: 


DATGEN: 


3: 


13:30 PAGE 83-42 


PC, READRL 
PC. SATIN 
(SP)+,R3 
10025... ERR1 
TSERCODE 


(RY), (RID+ 
CRY), (R3)+ 
(RY), (R3)+ 
R1 


6$ 

#2, SSINDX 
(SP)+,R4 

(SP)+,R1 

(SP)+,R0 

($P)+,R3 

ERRSWI 


99% 

ERRSWI, (SP) 
PC 

(SP), (SP) 
PC 


ELSE GET ALL REGISTERS 
ELSE WAIT FOR TIMEOUT 
GET RESULT MESSAGE POINTER 


CLEAR FOR ERROR RETURN 


; TEST FOR ANY ERRORS 
+NO - SK KIP 


CLEAR FOR ERROR RETURN 
STORE HEADER WORDS 


DEC HEADER COUNT 


REMOVE ENTRY FROM SUBROUT STACK 
RESTORE REGISTERS 


TEST IF ERROR RETURN 
YES - SKIP 
;ADD IN ERROR RETURN 


SET ERROR RETURN ADDRESS 


GENERATE DATA ROUTINE. PATTERN TO BE GENERATED IS GIVEN 


IN THE WORD FOLLOWING THE CALL. 


IN OBUFF. 


oo 


#OBUFF,.R1 
(R5)+,R4 
4 


R 
PATTBL(R4),.R3 
(R3), (RID+ 


53 
(R3), #-1 
53 


R4, 8&8. 

38 

R4, #16. 

6$ 

(R3)+ 
(R3)+, (R1)+ 
(R3)+, (R1I)+ 


128 WORDS ARE GENERATED 
+ STORE REGISTERS 


;SET POINTER TO OBUFF 

;GET DATA PATTERN SELECTOR 
;ADJUST IT FOR INDEXING 

;GET ADDRESS OF PATTERN 
;MOVE FIRST PATTERN WORD 
;SKIP IF PATTERN IS O 

>CHECK IF PATTERN IS ALL 1°S 
> YES - SK IP 

> TEST IF irae 5 

+ YES - SK 

> CHECK IF PATTERN 9 OR 10 
+NO - SKIP 

;BUMP SOURCE POINTER 

;MOVE TWO MORE WORDS FORM SOURCE 


SEQ 0075 


OUTERR 
DZRLOA 


PTA 


MACY11 30(1046) 
O04-NOV-77 


021540 
021544 
021550 
021552 
021556 
021560 
021562 
021566 
021570 
021572 
021574 
021600 
021604 
021606 
021610 
021612 
021614 
021616 
021620 


021622 


021776 


012704 
012703 


000205 


010346 
013703 
005723 
016663 
162763 
010337 
010146 
010446 
010546 
052737 
005037 
012705 
012704 
012703 
012701 
022425 
001052 
005203 
005301 
001373 
042737 
005737 
001021 
012701 


010146 
012746 
013746 
012746 
012746 
012746 
010600 
104014 
062706 


O4-NOV-77 


13: 13 


000015 
003656 


003656 


000017 


003656 
000160 


002414 


000002 
000uU04 
002414 


000001 
002426 
003656 
003256 
000001 
000200 


000001 
002430 
000200 


010211 


000005 


000014 


105: 


DATCOM: 
002250 
002250 


002416 


5S: 
7$. 


002416 9%: 


13:30 PAGE 83-43 


#13.,.R4 
ROBUFF,R3 
8$ 
#OBUFF.R3 
7$ 

(R3)+ 

#15. ,.R4 
(R3)+, (R1)+ 
RY 


8$ 
#OBUFF.R3 
#112. ,R4 
(R3)+, (RI) 
R4 


10% 
(SP)+,R4 
(SP)+,R3 
(SP)+,R1 
RS 


+SET COUNT 
+ RESET POINTER 


sELSE 7 OBUFF AS PATTERN SOURCE 
GO TO FILL 
;BUMP SOURCE POINTER 


+ SET MOVE COUNT 
+MOVE 15 WORDS INTO BUFFER 


+ SET SOURCE TO TOP OF OBUFF 
SET COUNT FOR REST OF BUFFER 
;REPEAT PATTERN IN BUFFER 


+RESTORE REGISTERS 


+ RETURN 


DATA COMPARE ROUTINE. COMPARES THE CONTENTS OF IBUFF AND OBUFF. 


MOV R3,-(SP) 

MoV SSINDX,R3 
TST (R3)+ 

MoV 

SuB #4, SUBSTK(R3) 
MOV R3, SSINDX 
MOV Ri, -(SP) 

MoV R4, -(SP) 

MOV RS, -(SP) 

BIS #DATACHP. OPFLAG 
CLR MORECE 

MoV ROBUFF,.RS 
MOV #IBUFF,.R4Y 
MOV #1,R3 

MOV #128. ,R1 

CMP (RY) +, (RS)+ 
BNE 10$ 

INC R3 

DEC R1 

BNE 5$ 

BIC #DATACMP,. OPFLAG 
TST ERRSHI 

BNE 15$ 

MOV #128... 

PRINTB 

MoV Ri. -(SP) 

MoV #RESEG. - (SP) 
MoV MORECE. - (SP) 
MOV #TCERR,. -(SP) 
MoV #FMNT27, -(SP) 
MoV #5, -(SP) 

MoV SP,.RO 

EMT CSPNTB 

ADD #14, SP 


ERROR REPORTING IS cance ig saga PARAMETER. 


, 


R3 
+GET SUBROUTINE STACK INDEX 
+BUMP INDEX TO NEXT ENTRY 


2(SP), SUBSTK(R3) + INSERT THIS CALL 


;ADJUST IT TO CALLING LOCATION 
+STORE IT BACK 
+STORE OTHER REGISTERS 


+SET DATA COMPARE FLAG 
*CLEAR MORE ERROR FLAG 
+SET POINTERS TO DATA FOR COMPARE 


4 SET WORD COUNTER 

;SET COMPARE COUNT 

+ COMPARE DATA 

sERROR - SKIP TO REPORT 
;BUMP WORD COUNT 

+DEC COMPARE COUNT 

;LOOP IF NOT O 

+CLEAR DATA COMPARE FLAG 
+ TEST IF ANY COMPARE ERRORS 
7NO - SKIP 

;SET REPORT VALUE 


tenTZ?, ETCERR, MORECE, #RESEG. RI 


SEQ 0076 


Vv—n 


OUTERR 
DZRLOA 


MACY11 30(1046) 
PTI 


022002 


022076 


022100 
022106 
022110 
022114 
022122 
022130 
022132 
022136 


022256 


O4-NOV-77 13: 


162737 
012605 


024445 


104443 
023463 
012734 
005037 
022425 
000712 
005237 
000707 


012737 
000402 
005037 
012737 
022737 
001006 
005737 
001403 
052737 
000403 
012737 


012723 


O4-NOV-77 
13 


000002 002414 


002430 
002430 
000009 


002426 013174 


002430 


002426 


177777 
002532 
000112 
000377 
002524 
004000 
000114 
002414 
000002 


000004 
002414 


002532 


002546 
002516 


002416 
002546 


002250 
002250 


016664 
002446 


000004 
003256 
003656 


155: 


995: 
10S: 


135: 


XWRITT: 


XWRITE: 
XWRIT1: 


1$: 
XREAD: 


XREADG: 


3$: 


13:30 PAGE 83-44 


SEQ 0077 


REMOVE ENTRY FROM SUBROUT STACK 
+RESTORE REGS 


+ TEST IF ERROR RETURN 
;YES - SKIP 
ADD IN ERROR RETURN 


+SET ERROR RETURN ADDRESS 


‘at’. pee ERRORS LIMIT EXCEEDED 
;SET PTRS BACK TO ERROR WORDS 
;REPORT ERROR 


CLEAR ERROR SWITCH 

;BUMP PTRS PAST ERROR WORDS 
+00 NEXT COMPARE 

BUMP ERROR COUNTER 

+DO NEXT COMPARE 


+SET SPECIAL WRITE FOR TIMING FLAG 


;CLEAR SPECIAL WRITE FLAG 
+SET FOR WRITE 

; TEST aos CYLINDER 255 (BAD SEC) 
>NO - SKIP 

TEST \F i 1 (BAD SECTOR FILES) 


NO - 
; SET BAD ADDRESS FLAG 
+SKIP TO EXECUTE 
+SET FOR READ 
STORE R3 
+SET SUBROUTINE INDEX 
+BUMP TO NEXT STACK ENTRY 


2(SP),SUBSTK(R3) > INSERT THIS CALL 


sADJUST TO POINT Tu CALL 
+STORE IT BACK 


+STORE OTHER REGISTERS 
+ CHECK IF DRIVE READY 


;GET ADDRESS OF LOAD REGS 

+ SET COMMAND 

+ INSERT ORIVE NUMBER 

+CLEAR FOR DRIVE 4 - 7 SPEC'D 
+ TEST IF Nie DATA 

> YES = SK 

*ELSE SET ‘BA FOR READ 


SUB #2, SSINDX 

MOV (SP)+,R5 

MOV (SP)+,R4 

MOV (SP)+,R1 

MOV (SP)+,R3 

TST ERRSWI 

BEQ 99% 

ADD ERRSWI, (SP) 
RTS 

MoV a(SP), (SP) 
RTS PC 

CMP MORECE, OCL IMW 
BGE 13% 

CMP ~(R4), -(R5) 
ERRHRD 10035..-,ERR10 
TRAP TSERCODE 
.WORD 10035 

.WORD = ERRI0 

CLR ERRSWI 

CMP (RY) +, (R5)+ 
BR 7$ 

INC MORECE 

BR 7$ 

WRITE AND READ DATA ROUTINE. 
MOV #-1, TEMP 1 

BR XWRIT1 

CLR TEMP 1 

MOV #WTDATA, TEMP7 
CMP #25& .CURCYL 
BNE 1$ 

TST DESHD 

BEQ 1$ 

BIS #BADADD, OPFLAG 
BR XREADG 

MOV #RODATA, TEMP? 
MOV R3,-(SP) 

MOV SSINDX, R3 

TST (R3)+ 

MOV 

SUB #4, SUBSTK(R3) 
MoV R3. SSINDX 
MoV RO, -(SP) 

MOV R1,-(SP) 

MoV R4, -(SP) 

JSR PC, RDYCHK 
#65$ 

MOV #L.CS.R3 

MOV TEMP7, (R3) 
BIS RLORV, (R3) 
BIC #B1T10, (R3) 
BIT #BITZ, (RI)+ 
BEQ 3$ 

MoV # BUFF, (R3)+ 
BR 4$ 

MoV #OBUFF, (R3)+ 


SET BA FOR WRITE 


OUTERR 


DZRLORA. 


PTi 


MACY11 30(1046) 
O4-NOV-77 


022262 


022526 


013713 


012703 


104443 
023460 
011344 
005037 
000475 
005037 
005737 
001072 
011362 
014362 
014362 
014362 


012700 
104027 
005737 
001007 
004737 
012603 


104443 
023456 
011344 
000443 
032737 
001031 
012703 
012704 


104443 
023460 
011576 
012701 
004737 
022564 
032737 
001011 
005301 


O4-NOV-77 
13: 13 


002516 
000007 


002524 
000100 
002526 
177609 
002532 


177777 
004000 


173777 
010077 


002416 


002420 
002532 


000uU06 
000004 
000002 
000000 
005670 
002420 


014562 


000001 


007333 
010300 


000062 
014762 


000001 


002416 
602416 


002456 


002456 


4$: 
55: 


73: 


85: 


23: 


10S: 


14S: 


13:30 PAGE 83-45 


CURCYL, (R3) 
#7,R4 


#HSMSK, (R3) 
DESSEC. (R3)+ 
#177600, (R3) 
TEMP1 


8$ 
#177777, (R3) 


SEQ 0073 


GET CURRENT CYLINDER 
;ALIGN IT IN DA 


; TEST IF HEAD O 

;YES - SKIP 

;SET FOR HEAD 1 

+ INSERT DESIRED ce 

+ INSERT WORD COUN 

#CHECK IF SPECIAL "Rite FOR TIMING 


NO - SKIP 
;ELSE SET FOR 1 WORD TRANSFER 


ran A a ADDRESS FLAG SET 
# CBADADD, OPFLAG ;CLEAR ALL BUT THIS FLAG 
#MWRTAB. RS SET RESULT MESSAGE POINTER 
10032.,,ERR1 

TSERCODE 

10032 

ERR1 

—" + CLEAR ALL FLAGS 

DONE +CLEAR INTERRUPT FLAG 

TEMP 1 CHECK IF SPECIAL WRITE FLAG SET 
65$ + YES - DO NOT START WRITE 
(R3),RLMP(R2) ;LOAD RL REGS 
~(R3),RLOACRZ) 

~(R3),RLBACRZ) 

~(R3),RLCS(R2) 

#3000. ;WAIT 3OOMS FOR INTERRUPT 
#3000. .RO 

CSWTU 

DONE +CHECK IF INTERRUPT 

14% YES - SKIP 

PC, WAITIN ;WAIT FOR INTERRUPT 
(SP)+,R3 ;GET RESULT MESSAGE 

10030. ..ERR1 

TSERCODE 

10030 

ERR1 

64S 

#DRDYMSK.T.CS ;TEST IF DRIVE READY 

208 +YES - SKIP 

#MORDY. RZ SET RESULT MESSAGE 

#CAFOT. RY ;CONDITION AFTER DATA XFER 
10032. ,,ERRS 

TSERCODE 

10032 

ERRS 

#50..R1 ;SET WAIT COUNT FOR 5S SECDS 
PC. GSTAT GET DRIVE STATUS 
RORDYMSK,T.CS ;TEST IF DRIVE READY NOW 
208 >YES - SKIP 

Ri DEC WAIT COUNT 


OUTERR 


DZRLOA. 


PTi 


MACY11 30(1046) 
O4-NOV-77 


022604 
022606 
022612 
022614 
022620 
022622 
022626 


022630 


022750 


001367 
012704 


023457 


017616 
000207 


010046 


012603 


04-NOV-77 
13: 13 
010312 


002430 
002456 


002430 


13:30 PAGE 83-46 


205: 


64S: 


000002 002414 655%: 


002430 
002430 
000000 


002432 
003062 
177777 


002666 
177777 


002514 
000007 


002524 


000100 
002526 


995: 


BSCHK: 


23: 


4S: 
5S: 


7$: 
8$: 


000001 002432 12%: 


003062 


15S: 
208: 


BAD SECTOR CHECK ROUTINE. CHECKS IF SECTOR SPECIFIED IN CURCYL. 
AND DESSEC IS LISTED AS BAD IN THE BAD SECTOR FILES 


DESHD, 
MOV 


17$ 
#CSSEC, RY 
10033. .,ERRS 
TSERCODE 


99 
ERRSWI, (SP) 
PC 
a(SP), (SP) 
PC 


#FBSFIL.R3 
#-1, (R3) 


4$ 
#SBSFIL,.R3 
#-1, (R3) 
208 
NEWCYL, RO 
#7,R1 


#B1T6,R0 
DESSEC. RO 
(R3)+,RO 
12$ 

15% 

8s 

#1, BSFLAG * 
20$ 
R3. SF BSF IL 
23 
(SP)+,R3 


;LOOP IF a TIME DONE 


+ CLEAR ERROR 


ON 5 SECONDS 


SWITCH 


+ CHECK IF ANY ERROR 


;NO - SKIP 


+ CLEAR ERROR 


;REMOVE ENTRY FROM SUBROUT STACK 


SWITCH 


RESTORE REGISTERS 


+ TEST IF = 
+; YES ™ SK 


+ ELSE ADD. iN ERROR RETURN 
; ADJUST FOR ERROR RETURN 


OR RETURN 


> STORE REGISTERS 


CLEAR FLAG 


;GET POINTER TO FACTORY FILE 


+ CHECK IF ALL ONES 


+NO SKIP TO 


-ELSE SET POINTER TO SOFTWARE FILE 


TEST 


*CHECK IF ALL ONES 


>YES - EXIT 


*BUILD HEADER OF ADDRESS IN QUESTION 


;POSITION CYLINDER 


+ CHECK ea HEAD 0 


+ YES - 


+ INSERT HEAD 1 
+ INSERT SECTOR 


+ CHECK THIS WORD IN FILE 


7 YES - EXIT. 


ERROR 


EXIT- NO ERROR 
+ SET ERROR FLAG 


*GO TO EXIT 


DONE BOTH FILES? 
+NO GO DO SOFTWARE FILE 
*ELSE RESTORE REGISTERS 


SEQ 0079 


om 





OUTERR 
DZ2RLOA. 





MACY11 3001046) 
PTi O4-NOV-77 1 


022776 


023000 
023002 
023006 
023010 
023014 
023014 
023020 


023214 


012601 


000207 


010446 
005737 
001433 
012704 


012746 
012746 
012746 
010600 
104014 
062706 


016446 


003761 


012746 
013746 


052737 


016146 
012746 


002432 
000002 
000000 


002414 
000002 


007156 
010633 
000002 


000006 


002250 
011006 
000u02 


000006 
000002 
002414 


006007 
002424 
010436 
000003 


000010 
030000 
002446 
177741 
000006 


010000 
000012 


020000 
000014 


020000 


002112 
004733 


04-NOV-77 
3:13 


002416 


002416 


002416 


002416 


33: 


1S. 


2: 


20S: 


22S: 


13:30 PAGE 83-47 


(SP)+,R1 

(SP)+,RO 

BSFLAG ; CHECK IF ERROR 

99% ;YES - SKIP 

dak ELSE BUMP ERROR RETURN 
hasty ;SET FOR ERROR RETURN 


REPORT OPERATION ROUTINE. PRINTS SUBROUTINE TRACE SEQUENCE AND 
OPERATION BEING PERFORMED PORTION OF ALL 
ERROR MESSAGES. 


R4, - (SP) 

$SINDX + TEST SUBROUTINE INDEX 0 

1$ ;SKIP IF O 

#2.R4 ;SET INDEXER TO FIRST ENTRY 
#FMTS,@SEQNES -;PRINT “SUBROUTINE CALL SEQ” 
#SEQMES, -(SP) 

#FNTS, -(SP) 

#2, - (SP) 


#FNT16, SUBSTK(R4Y) PRINT CALLING LOCATION 
SUBSTK(R4), - (SP) 


RFMT16, -(SP) 


#2, - (SP) 

SP,RO 

CSPNTB 

#6, SP 

#2,R4 ;BUMP INDEX 

R4, SSINDX >CHECK IF ALL PRINTED 


3$ ;LOOP IF NOT ALL PRINTED YET 
#FMT4, ERHEAD. &TSTLAB PRINT ERROR HEADER 
#TSTLAB. -(SP) 

ERHEAD, - (SP) 

#FMTY, -(SP) 


- SP 
#SEEKOP !RORWOP, OPFLAG ;CLEAR SK & RD OR WRT FLAG 
L.CcS,R1 +GET COMMAND EXECUTED 
#177741.R1 +STRIP ALL BUT FUNCTION CODE 
#6.R1 ;TEST IF SEEK gps 
*N 


23 P 
& SEEKOP. OPFLAG S ELSE SET SEEK FLAG 


#12.R1 ; TEST IF WRITE 
20$ ;NO - SKIP 
#RORWOP. OPFLAG ;SET RD OR WRT FLAG 
#14,R1 ; TEST IF READ 
7NO - SKIP 


228 

SRORWOP, OPFLAG ;SET RD OR WRT FLAG 
SFMT1, #MOPER, OPMSGS(R1) ; PRINT OPERATION 
OPMSGS(R1),-(SP) 

RMOPER, - (SP) 


SEQ 0080 


cman 


OUTERR 
DZRLOA. 


PTi 


MACY11 3011046) 
O4-NOV-77 13:13 


023220 


023504 


012746 


006204 
000772 


016146 
012746 
012746 
010600 
104014 
062706 
032737 
001415 
012701 


016146 
012746 
012746 
010600 
104014 
062706 
0004 34 
032737 
001430 


013746 
012746 
013746 
012746 
013746 
012746 
013746 
012746 
012746 
012746 
010600 
104014 
062706 
032737 
001424 


O4-NOV-77 


010414 
000003 


000010 
000004 


000010 
000015 
007777 


002416 
000020 
000001 


002112 
010430 
000002 


000u06 
100000 


000050 


002112 
010430 
000002 


000006 
010000 


002524 
007117 
002522 
007112 
002520 
007104 
002512 
007135 
010654 
000011 


000024 
020000 002416 15%: BIT 


002452 


002416 


002416 


002416 


13: 30 


4S: 


5S: 


6$: 


8$: 


9S: 


10%: 


PAGE 83-48 


SEQ 0081 
#FMNT1,-(SP) 
#3,-(SP) 
SP, RO 
CSPNTB 
#10. SP 
R1,84 ; CHECK IF GET STATUS 
4§ ;NO - SKIP 
#ORSET.L. OA ; TEST IF RESET INCLUDED 
ih) ;NO - SKIP 
| alt ;SET TO PRINT WITH RESET 
#COMPOP, OPFLAG ; TEST IF ANY OTHER OPERATION 
8$ ;NO - SKIP 
OPFLAG. RY ;SET UP TO DETERMINE WHICH ONE 
#20.R1 ;PRESET THE POINTER 
#81700. R4 ; CHECK THE BIT 
6% ;1F SET - SKIP 
(R1)+ ;BUMP POINTER 
RY 
5$ 
SF MTZ, OPMSGS(R1) 


OPMSGS(R1),-(SP) 
#FNT2, -(SP) 


#2, -(SP) 

SP,RO 

CSPNTB 

#6, SP 

#HDR4O, OPFLAG > TEST IF 4O HEADER SPERATION 
10% ;NO - SKIP 


#50. R1 ELSE PRINT IT 
#FMNTZ, OPMSGS(R1) 
OPMSGS(R1),-(SP) 

#FMNT2,-(SP) 


#2. -(SP) 

SP.RO 

CSPNTB 

#6. SP 

15% > SKIP 
#SEEKOP,OPFLAG ; TEST IF SEEK 
5$ ;NO - SKIP 


1 , 
SFNT13, SFRMWD, OLOCYL. #OIFWD. DESDIF, &SGNWD. CDESSGN, #HOWD, DESHD 
DESHD. - (SP) 
#HDWD, - (SP) 
DESSGN. - (SP) 
#SGNWD, - (SP) 
DESDIF.-(SP) 
#DIFWD. - (SP) 
OLOCYL, - (SP) 
#FRMWD. - (SP) 
#FMT13,-(SP) 


#11,.-(SP) 

SP.R 

CSPNTB 

#24, SP 

RRORWOP,OPFLAG ;TEST IF READ OR WRITE SET 
17% *NO - SKIP 


OUTERR MACY11 30(104%6) 
DZRLOA. PT1 


5140 
(13) 
(12) 
(11) 
(10) 
(9) 
(8) 
(7) 
(6) 
(3) 
(4) 
(4) 

5141 

5142 

5143 

5144 

5145 

5146 

5147 

5148 

5149 

5150 

5151 

5152 
(9) 


023506 
023506 
023512 
023516 
023522 
023526 
023532 
023536 
023542 
023546 
023550 
023552 
023556 
023562 
023564 


023566 
023570 
023572 
023574 
0223600 
023602 
023602 
023604 
023610 
023614 
023620 
023622 
023624 
023630 
023634 
023636 
023642 
023646 
023650 
023654 
023656 
023660 
023660 
023662 
023666 
023670 
023674 
023676 
023700 
023704 
023704 
023706 
023712 
023714 
023720 
023722 
023724 
023730 


O4-NOV-77 


013746 
012746 
013746 
012746 
013746 
012746 
012746 
012746 
010600 
104014 
062706 
004737 
012604 
000207 


010146 
010346 
010446 
012701 
012103 


011146 
012746 
012746 
012746 
010600 
104014 
062706 
021127 
001453 
012704 
022127 
001002 
012704 
005303 
001442 


012146 
012746 
010446 
012746 
010600 
104014 
062706 


012146 
012746 
010446 
012746 
010600 
104014 
062706 
162703 


04-NOV-77 
13: 13 


002526 


000007 


000020 
024230 


002474 


004747 
010421 
000003 


006010 
007731 


010640 
007724 


010646 


010173 
000003 


000010 


010177 
000003 


000010 
000002 


13:30 PAGE 83-49 


175: 


, 


RPTRES: 


3s: 


on car ae #SECWD, DESSEC 


C,-(SP) 
MOV #SECWD, - (SP) 
MOV DESHD, -(SP) 
MOV #HOWD, - (SP) 
MOV CURCYL, -(SP) 
“OV a#CYLWD, - (SP) 
MOV #FMT22, -(SP) 


MoV SP, RO 

EMT CSPNTB 

AOD #20. SP 

JSR PC, CLRPARM 
MoV (SP)+,R4 
RTS PC 


REPORT REASON ROUTINE 


;CLEAR PARAM TABLE 
RESTORE RY 


PRINTS REASON PORTION FOR cede aa REPORTS. 


MOV Ri, -(SP) 
MOV R3,-(SP) 
MoV R4,-(SP) 
MOV #RESPARM, R1 


MoV (R1)+,R3 
PRINTB #FMT1. 1, @MRSLT. (R1) 
MOV (R1),-(SP) 
MOV #MRSLT, - (SP) 
MoV @FMT1. 1.-(SP) 
MoV #3,- (SP) 

MOV SP, RO 

EMT CSPNTB 

ADD #10, SP 

CMP (R1), #MNDRST 
BEQ 6$ 

MOV #FMT11,R4 

CMP (R1)+, #MCYLOC 
BNE 3$ 

MOV RFMT12,R4 

DEC R3 

BEQ 


6$ 

R4, FRESE, (R1)+ 
Mov (R1)+,-(SP) 

MoV #RESE3, - (SP) 
MoV R4, -(SP) 

MoV #3, -(SP) 

MOV SP, RO 

EMT CSPNTB 

ADD #10, SP 

R4, SRESEY, (R1)+ 
MOV (R1)+,-(SP) 

MOV #RESEY, - (SP) 
MoV R4, -(SP) 


+ STOR 

STORE R3 

+ STORE R4 

+GET START OF PARAM 
;GET NUMBER OF PARAM 
PRINT NAME 


+ TEST IF MESSAGE IS NO ORV STATUS 
>YES - SKIP REST OF REPORT 
sPRISET FOR FORMAT 11 

> CHECK os M sercecuh-tates CYLINDER LOC 


*NO - SK 


+ ELSE CHANGE TO FORMAT 12 


;DEC PARAM COUNT 
+1F O - EXIT 
>REPORT IS VALUE 


;REPORT SB VALUE 


*DEC PARAM COUNT 


SEQ 0082 


OUTERR 
DZRLOA. 


5164 
5165 
(9) 
(8) 
(7) 


P 


MACY11 30(1046) 


O4-NOV-77 


1 O4-NOV-77 13:13 


023734 
023736 
023736 
023740 
023744 


023772 


023774 
023774 
023776 
024002 
024006 
024012 
024016 
024022 
024026 
024030 
024032 


024036 


024166 


001413 


012146 
012746 
012746 
012746 
010600 
104014 
062706 
012604 
012603 
012601 
000207 


005046 
153716 
012746 
013746 
012746 
012746 
012746 
010600 
104014 
062706 


012746 
012746 
012746 
012746 
012746 
012746 
012746 
012746 
010600 
104014 
062706 


013746 
013746 
013746 
013746 
012746 
012746 
012746 
010600 
104014 
062706 


013746 
013746 
013746 
013746 


010204 
010414 
000003 


000010 


002445 
005423 
002440 
005412 
010447 
000005 


000uU14 


007117 
007130 
005542 
005530 
005535 
005523 
010467 
000007 


000020 


002454 
002450 
002452 
002446 
005547 
010601 
000006 


000016 


002524 
002516 
002464 
002460 


13:30 PAGE 83-50 


6S: 


RPTREM: 


m., ee MEP i oy 


SEQ 0083 


6$ IF O - EXIT 
@FMT1,@RESES, (R1)+ -;REPORT CONDITION 


(SP)+,R4 RESTORE REGS 


(SP)+,R1 
PC + RETURN 


REPORT PHYSICAL ADDRESS OF DEVICE UNDER TEST 
AND ALL REGISTER CONTENTS. 


PRINTB #FMTS, #BASADD. RLBAS. #ORVNAM, <B, RLDORV+1> 
CLR - (SP) 

BiSB RLORV+1, (SP) 

MOV RORVNAM, - (SP) 

MoV RLBAS, -(SP) 

MoV #BASADD. - (SP) 

MoV #FMTS, - (SP) 

MOV #5, -(SP) 

MOV SP,RO 

EMT CSPNTB 

ADD #14, SP 

REPORT RL11 REGISTERS 

PRINTB #FNT6, #CSNAM, #DANAM. #BANAM. &MPNAM. &CYLWD. #HOWD 
MoV #HOWD, - (SP) 

MOV #CYLWD, - (SP) 

MOV #MPNAM, - (SP) 

MoV #BANAM, - (SP) 

MoV #DANAM, - (SP) 

MOV #CSNAM, - (SP) 

MoV #FMT6, - (SP) 

MOV #7,-CSP) 

MoV SP. RO 

ENT CSPNTB 

ADD #20, SP 

PRINTB #FMTS, #LAB1.L.CS.L.DA-L. BA.L. MP 
MOV L. MP, -(SP) 

MoV L. BA. - (SP) 

MoV L. DA, - (SP) 

MOV L. CS. -(SP) 

MOV #LAB1. -(SP) 

Mov #F MTS, -(SP) 

MoV #6, -(SP) 

MOV SP,RO 

ENT CSPNTB 

ADD #16. SP 

PRINTB #FMT7, #LABZ2.T. CS. T. DA. T. BA. T. MP. CURCYL, DESHO 
MOV DESHD, - (SP) 

MOV CURCYL. - (SP) 

MOV T. MP. -(SP) 

MOV T. BA. - (SP) 





















UZRLOA. PT1 
(10) 024172 








G 7? 
OUTERR MACY11 30(1046) O4-NOV-77 13:30 PAGE 83-51 
O4-NOV-77 13:13 

013746 002462 MOV T. OA, - (SP) 
024176 013746 002456 MOV T. CS, - (SP) 
024202 012746 005562 MOV #LABZ, -(SP) 
024206 012746 010531 MOV #FNT7, -(SP) 
024212 012746 000010 MOV #10, -(SP) 
024216 010600 MOV SP.RO 
024220 104014 ENT CSPNTB 
024222 062706 000022 ADD #22. SP 
024226 000207 RTS PC 

; CLEAR PARAMETER BLOCK FOR outer 

024230 010546 CLRPARM: MOV 5, - (SP) + ST RS 
024232 012701 002474 MOV #RESPARM. R1 + GET ADDRESS” OF BLOCK 
024236 012705 000005 MOV #5,R5 + SET COUNT 
024242 005021 23: CLR (R1)+ CLEAR WORD 
024244 005305 DEC RS *+DEC COUNT 
024246 001375 BNE 2$ LOOP UNTIL O 
024250 012701 002474 MoV #RESPARM. R1 ;RESET POINTER 
024254 012605 MOV (SP)+,R5 RESTORE RS 
024256 000207 RTS PC 
024260 ENDMOG 





: 


SEQ 0084 i 


com 


OUTERR 
DZRLOA 


MACY11 30(104%6) 
Pil 


024260 
024260 


012737 
012737 
004737 
004737 
024600 
012737 
012704 
012705 
004737 


104002 
004737 
024536 


104020 


103005 
021415 
001005 
004737 
000421 
0054 37 
011415 
022714 
001004 
012737 
000405 
005714 


02% 336 
024 340 
024-40 
024342 
024342 
024344 
024346 
024350 
024354 
024356 
024362 
024 364 
024370 
024372 
024400 
024402 
024404 001003 
024406 012737 
024414" 063715 
024420 004737 
024424 024536 
024426 004737 
024432 024536 


024434 012793 
024440 020337 
024444 001404 


104443 
000145 
012524 
000423 
012703 
012701 
004737 
024536 
020337 


024500 001411 


04-NOV-77 


O4-NOV-77 13 
11:51 


006015 
000004 
014714 
014732 
177777 
002516 
002514 
017124 


020652 


017210 
002534 
000377 
177777 


000001 
002534 
015624 


014762 


000004 
002472 


000005 
000062 
014762 


002472 


002424 
002530 


002534 


002534 


002534 


30 PAGE 84 


BGNMOD HROWTST 
_SBTTL TEST 1 
BGNTST 


MoV #P2TO1E. ERHEAD 
MOV #4, TEMPO 
JSR PC, TSTINT 
JSR PC, GSTATR 
#71765 
MoV #-1, TEMP2Z 
MOV #CURCYL, RY 
MoV #NEWCYL, RS 
JSR PC, CHOSHD 
7172S: 
BGNSUB 
EMT CS$BSUB 
JSR PC, GETPOS 
#608 
INLOOP 
ENT CSINLP 
BNCOMPLETE 3$ 
BCC 3$ 
CMP (RY), CRS) 
BNE 4§ 
JSR PC, ONSWAP 
BR 98 
35: NEG TENP2 
4S: MOV CR4), CRS) 
CMP #255. . (R4) 
BNE 7% 
MOV #-1, TEMP2 
BR 8s 
7$ TST (R4) 
BNE 8$ 
MOV #1, TEMP2 
S: ADD TEMP 2, (RS) 
95: JSR PC, XSEEK 
= #605 
JSR PC, GSTAT 
#608 
MOV #4,R3 
CMP R3.T. STAT 
BEQ 10$ 
ERRHRD 101...,ERR?7 
TRAP TSERCODE 
.WORD 101 
.WORD ERR? 
BR 168 
108: MoV #5,R3 
MoV #50..R1 
128: JSR PC, GSTAT 
#608 
CMP R3.T. STAT 
BEQ 168% 


XKDIFFERENCE OF 1 SEEK (PART 1) 
; TEST 1 


T1:: 
;SET ERROR HEADER 
;SET PASS COUNT 
; INITIALIZE TEST 
;GET STATUS 


;SET -1 INTO DIFF AUGMENT FOR -1 SEEK 
SET POINTERS 


GO CHOSE HEAD 


T1. 1 
;GET POSITION 
; CHECK IF IN ERROR LOOP 
NO - SKIP 
CHECK IF CURRENT = NEW 
NO - SKIP 


ELSE SWAP OLD AND NEW 
+SKIP TO SEEK 
CHANGE DIFF AUGMENT FOR OPPOSITE DIR 


; MOV CURRENT INTO OLD 

>; CHECK IF CURRENT AT 255 

;NO - SKIP 

it . CYL. MAKE NEXT SEEK REV 
SKI 

; TEST IF CURRENT AT O 

;NO - SKIP 

;AT CYL O. MAKE NEXT SEEK FWRD 


;ADD DIFF TO NEW CYL (+1 OR -1) 
DO SEEK 


GET STATUS 


;SET EXPECTED STATE 
>CHECK IF STATE COUNT 
> YES-SKIP 

;REPORT STATE ERROR 


EXIT TEST 

SET EXPECTED STATE 

;SET WAIT COUNT FOR 5 MS 
GET STATUS 


;1S STATE 5? 
> YES-SKIP 


SEQ 0085 


ca 


OUTERR 


DZRLOA. 


5242 
5243 
5244 
(3) 
(3) 


MACY11 30(1046) 


Pil 


024502 
024504 
024506 
024506 
024512 
024514 
024516 
024516 
024520 
024522 
024524 
024530 
024534 
024536 
024544 
024544 
024544 
024546 
024546 
024550 
024552 
024556 


024560 
024566 
024570 
024574 
024576 
024600 
024600 
024600 
024600 
024600 


005301 
001404 


012700 
104027 
000764 


104443 
000146 
012524 
012701 
004737 
024536 
012737 


104003 


104010 
000020 
005337 
001410 


032737 
001003 
004737 
024600 
000654 


104001 


O4-NOV-77 
O4-NOV-77 11:51 


000001 


000062 
020404 


000002 


002530 


000001 
017150 


002430 


002530 


14S: 


168: 


60S: 
ENDSUB 
110021: 


L10020: 


13:30 PAGE 84-1 
KTEST 1 


EMT 


a 


XKDIFFERENCE OF 1 SEEK (PART 1) SEQ 0086 

Ri ;DEC WAIT COUNT 

14$ ;SKIP IF O 

#1 

#1,R0 

CSWTU 

12$ 

102. ,,ERR7 ;REPORT STATE ERROR 

TSERCODE 

102 

ERR7 

#50. .R1 ;SET WAIT COUNT FOR 5 MS 

PC, RDYWAIT ;GO WAIT FOR DRIVE READY 

#2, ERRSWI ; INIT ERROR SWITCH 

CSESUB 

TST ;EXIT TEST IF ERROR 

CSESCAPE 

L10020-. 

TEMPO >DEC PASS COUNT 

245 ;SKIP IF O-DONE 

#B1TO. TEMPO > TEST IF PASS=2 

2353 :NO-SKIP 

PC, SWAPHD :GO SWAP TO HEAD 1 OR END TEST 
; ABORT RETURN 

T1728 

CSETST 


OUTERR 
DZRLCOA. 


MACY11 3001046) 
O4-NOV-77 


Pil 


024602 
024602 
024602 
024610 
024616 
024622 
024626 
024630 
024634 
024642 
O24646 
024652 


025020 
025020 


012737 
012737 
004737 
004737 
025070 
004737 
012737 
012703 
012704 
012705 


104002 
004737 
025026 


104020 


103005 
021413 
001005 
004737 
000%21 
0054 37 
011413 
022714 
001004 
012737 
000405 
005714 
001003 
012737 
063713 
004737 
025026 
012701 
004737 
025026 
004737 
025026 
011501 
161401 
005737 
001402 
011401 
161501 
022701 
001403 


104443 


O4-NOV-77 13: 


11: 51 


006015 002424 
000004 002530 
014714 
014732 


017124 
177777 
002514 
002516 
002512 


002534 


020652 


017210 
002534 
000377 
177777) «=002534 


000001 002534 


002534 
015624 


000226 
020404 


020652 


002522 


000001 


30 PAGE 84-2 
aTEST 1 


. SBTTL 
BGNTST 


7187S: 


BGNSUB 


3S: 
4S: 


9S: 


10S: 


XTEST 2 

MOV #P2TOZE. ERHEAD 
MOV #4, TEMPO 
JSR PC, TSTINT 
JSR PC, GSTATR 
#718658 

JSR PC, CHOSHD 
MOV #-1, TEMPZ 
MOV #NEWCYL, R3 
MOV #CURCYL, RY 
MOV ROLDCYL,. RS 
EMT C$BSUB 

JSR PC, GETPOS 
#60$ 

INLOOP 

ENT CSINLP 
BNCOMPLETE 3$ 
BCC 3$ 

CMP (RY), (RI) 
BNE 4$ 

JSR PC, ONSWAP 
BR 9$ 

NEG TEMP2 

MOV CR4), (R3) 
CMP #255... (R4) 
BNE 7$ 

MoV #-1, TEMP2 
BR 8$ 

TST (R4) 

BNE 8$ 

MoV #1, TEMP2 
ADD TEMP2, (R3) 
JSR PC, XSEEK 
#60$ 

MOV #150.,R1 
JSR PC, RDYWAIT 
#60$ 

JSR PC, GETPOS 
#608 

MOV (R5),R1 
SUB (RY), R1 
TST DESSGN 
BEQ 10$ 

MoV (R4).RI1 
SUB (R5).R1 
CMP #1,R1 

BEQ 128 
ERRHRD 201..,ERRS 
TRAP TSERCODE 


J? 


KXDIFFERENCE OF 1 SEEK (PART 2) 
+ TEST 2 


+ SET ERROR HEADER 
;SET PASS COUNT 

+ INITIALIZE TEST 
GET STATUS. 


GO CHOSE HEAD 
;SET DIFF AUGMENT TO -1 (REVERSE) 
;GET ADDRESSES 


HXDIFFERENCE OF 1 SEEK (PART 1) SEQ 0087 
T2 
CLEAR DRIVE 


TZ. 1: 
;GET CURRENT POSITION 
;CHECK !F IN ERROR LOOP 


>NO - SKIP 

*CHECK IF CURRENT = NEW 
+NO - SKIP 

+ELSE SWAP OLD AND NEW 
>SKIP TO SEEK 


+ CHANGE DIFF AUGMENT FOR OPPOSITE DIR 
;MOV CURRENT INTO NEW 

; CHECK . —— AT 255 

+NO - SK 

;AT MAX CYL. RAKE NEXT SEEK REV 


+ SKIP 
; TEST IF CURRENT AT 0 


;NO bad SKIP 
;AT CYL 0. MAKE NEXT SEEK FWRD 


;ADD DIFF TO NEW CYL (+41 OR -1) 

;D00 SEEK 

;SET WAIT COUNT FOR 15 MS 

>WAIT FOR READY 

;STORE POSITION 

;GET OLD POSITION 

; SUBTRACT FROM NEW POINTER (FORWARD) 
>CHECK !F SIGN FORWARD 

: YES-SKIF. ELSE SUB FOR SEEK REVERSE 
;GET NEW CYLINDER 

; SUBTRACT FROM OLD CYL 

;CHECK IF RESULT IS DIFFERENCE OF 1 
+ YES-SKIP 

-ELSE REPORT ERROR 


K 7? 
OUTERR MACY11 30(1046) O4-NOV-77 13:30 PAGE 84-3 
XTEST 2 


DZRLOA. P11 O4-NOV-77 11:51 AXDIFFERENCE OF 1 SEEK (PART 2) SEQ 0088 
(5) 025022 000311 .WORD 201 
(5) 025024 012574 .WORD ERRES 
5315 025026 12%: 
5316 025026 012737 000002 002430 60%: MOV #2, ERRSHI + INIT ERROR SWITCH 
5317 025034 ENOSUB 
(3) 025034 L10023: 
(3) 025034 104003 ENT CSESUB 
5318 025036 ESCAPE TST EXIT TEST IF ERROR 
(3) 025036 104010 EMT CSESCAPE ae 
(3) 025040 000030 .WORD = 110022-. 
5319 025042 005337 002530 DEC TEMPO DEC PASS COUNT 
407] 025046 001410 BEQ 30$ EXIT IF DONE 
5322 025050 032737 000001 002530 BIT #8170, TEMPO + TEST IF PASS 1 OR 3 
5323 025056 001003 BNE 20% + YES-SKIP 
5324 025060 004737 017150 JSR PC. SWAPHD +GO SWAP TO HEAD 1 OR END TEST 
5325 025064 025070 308 ABORT RETURN 
5326 025066 000672 20S: BR T187$ + LOOP 
5327 025070 30S: 
5328 025070 T1865S: 
5329 025070 ENOTST 
(3) 025070 L10022: 


(3) 025070 104001 EMT CSETST 


L 7? 
OUTERR MACY11 3001046) O4-NOV-77 13:30 PAGE 84-4 


DZRLOA. P11 O4-NOV-77 11:51 XTEST 2 XEDIFFERENCE OF 1 SEEK (PART 2) SEQ 0089 
5331 
5332 
5333 .SBTTL &XTEST 3 XXOUTER GUARD BAND DETECTION 
5334 025072 BGNTST + TEST 3 
(3) 025072 T3:: 
5335 025072 012737 006034 002424 MOV #PZTOSE.ERHEAD ;SET ERROR HEADER 
5336 025100 004737 014714 JSR PC, TSTINT ; INITIALIZE TEST 
5337 025104 004737 014732 JSR PC, GSTATR > CLEAR DRIVE 
5338 025110 025302 #71965 
5339 025112 004737 017124 JSR PC, CHOSHD +GO CHOSE HEAD 
5340 025116 005005 T1978: CLR RS ; CLEAR FOR POSITION TO 0 
5341 025120 0C4737 016324 JSR PC, POSHDS ; POSITION HEADS 
5342 025124 02302 #71965$ 
5343 025126 BGNSUB 
(3) 025126 T3. 1: 
(3) 025126 104002 EMT CS$BSUB 
5344 025130 012737 177777 002514 MOV #-1, NEWCYL ;SET FOR GUARD BAND SEEK 
5345 025136 004737 015624 JSR PC, XSEEK +00 SEEK 
5346 025142 025256 #60S 
5347 025144 012701 000003 MOV #3., ;SET WAIT COUNT FOR 3MS 
5348 025150 032762 000001 SOO00000 8%: BiT saa YNSK. RLCS(R2) Bay a IF DRIVE READY 
5349 025156 001413 BEQ 98 -SK 
5350 025160 004737 014762 JSR PC, GSTAT ‘GET DRIVE STATUS 
5351 025164 025256 608 
5352 025166 012703 007333 MOV #MORDY, RZ ;SET NAME MESSAGE PTR 
5353 025172 012704 010246 MOV #C1OMS, RY ;SET CONDITION MESSAGE PTR 
5354 025176 ERRHRD 301.,-ERR4Y ;REPORT READY ERROR 
(3) 025176 104443 TRAP TSERCODE 
(5) 025200 O000455 . WORD 301 
(5) 025202 011526 . WORD ERRY 
5355 025204 000424 BR 60$ ;EXIT TEST 
5356 025206 005301 95: DEC R1 ;DEC WAIT COUNT 
5357 025210 001404 BEQ 12$ ‘SKIP 16 G 
5358 025212 WAITUS #10. 
(3) 025212 012700 000012 MOV #10.,R0 
(3) 025216 104027 EMT CSWTU 
5359 025220 000753 BR 8% +> LOOP 
5360 025222 012701 000226 12%: MOV #150..R1 ;SET WAIT COUNT FOR 15 MS 
5361 025226 004737 020404 JSR PC, RDYWAIT ;WAIT FOR READY & REPORT IF NOT READY 
oe 025232 025256 #605 
5364 025234 004737 020652 JSR PC, GETPOS ,GET POSITION 
5365 025240 025256 #6058 
5366 025242 005737 002516 TST CURCYL ; CHECK IF HEADS STILL AT O 
5367 025246 001403 BEQ 15% > YES-SKIP 
5368 025250 ERRHRD 302...ERRS ;ELSE REPORT CYLINDER ERROR 
(3) 025250 104443 TRAP TSERCODE 
(5) 025252 000456 . WORD 302 
(5) 025254 012574 . WORD ERR8 
5369 025256 15S: 
5370 025256 012737 O00002 002430 60%: MOV #2, ERRSWI > INIT ERROR SWITCH 
5371 025264 ENDSUB 
(3) 025264 L10025: 
(3) 025264 104003 EMT CSESUB 
5372 025266 ESCAPE TST ;EX!T TEST IF ERROR 


(3) 025266 104010 ENT CSESCAPE 


OUTERR 


DZRLCA. 


Pil 


025270 


2 
025302 


000012 
004737 017150 
025302 
000706 


104001 


175: 

719655: 
ENOTST 
110024: 


MACY11 3001046) O4-NOV-77 13:30 PAGE 84-5 
G4-NOV-77 11:51 xTEST 3 


EMT 


h 7? 


KXOUTER GUARD BAND DETECTION 


L10024-. 
PC, SWAPHD 


T197$ 


CSETST 


GO SWAP TO HEAD 1 OR END TEST 
; ABORT RETURN 
+REDO TEST 


SEQ 0090 


OUTERR 


DZRLOA. 


Pil 


MACY11 30(1046) 
O4-NOV-77 


025304 


025436 


025440 
025444 


025446 


025510 


012737 
004737 
004737 
025512 
004737 
005737 
001402 


104032 
000152 
013705 
004737 
025512 


104002 
004737 
025502 


104020 


103007 
023737 
001003 
004737 
000405 
013737 
005237 


004737 
025502 
012701 
004737 
025502 


004737 
025502 


032737 
001406 
004737 
025502 
004737 
025502 


023737 


103726 
012737 


104003 


O4-NOV-77 13:30 PAGE 84-6 
11:51 KTEST 3 


006060 
014714 
014732 


017124 
002524 


013164 
016324 


020652 


002516 
017210 


002516 
002514 


015624 
000226 
020404 
021000 


000002 
021120 
020016 


013166 
000002 


002424 


002514 


002514 


013162 


002514 
002430 


. SBTTL 
BGNTST 


23: 
BGNSUB 


T2065: 


5S: 
75: 


115: 


60S: 
ENDSUB 
110027: 


N 7? 


XXOUTER GUARD BAND DETECTION 


KXINCREMENTAL FORWARD SEEK HEAD 0 
+ TEST 4 


xTEST 4 

MOV #PZ2TOWE, ERHEAD 
JSR PC, TSTINT 

JSR PC, GSTATR 
#72065 

JSR PC, CHOSHD 

TST DESHD 

BEQ 

EXIT TST 

EMT CSEXIT 

.WORD 1L10026-. 

MOV LOL IMW, RS 

JSR PC, POSHDS 
#T2065$ 

ENT C$BSUB 

JSR PC, GETPOS 
#60$ 

INLOOP 

EMT CSINLP 
BNCOMPLETE 5$ 
BCC 5$ 

CMP CURCYL. NEWCYL 
BNE 5$ 

JSR PC, ONSWAP 

BR 7$ 

MOV CURCYL, NEWCYL 
INC NEWCYL 

JSR PC, XSEEK 
#605 

MOV #150.,R1 

JSR PC, RDYWAIT 
#60$ 

JSR PC, VERPOS 
#608 

BIT #ALLSEC. MISHIW 
BEQ 11$ 

JSR PC, RDALHD 
#608 

JSR PC, VERHDR 
#60$ 

CMP HILIMW. NEWCYL 
BLO T206$ 

MoV #2, ERRSHWI 

ENT CSESUB 


TH: : 
;SET ERROR HEADER 
+ INITIALIZE TEST 
> CLEAR ORIVE 


+GO CHOSE HEAD 
+ TEST IF THIS 1S HEAD O 


+YES - SKIP 
sELSE EXIT TEST 


+ CLEAR TO POSITION HEADS TO LOLIMIT 
;POSITION HEADS 
T4. 1: 

+GET POSITION 
>CHECK IF IN ERROR LOOP 
+NO - SKIP 
+ CHECK IF POSITIONED AT DESIRED LOC 
;NO - SKIP 
4-7 SWAP NEW AND OLD CYLINDERS 

| 


:PLACE CURRENT iNTO NEW 
;BUMP FOR ONE CYLINDER SEEK 


DO SEEK 

*SET WAIT TIME 15 MS 
+WAIT FOR READY 

;GO VERIFY POSITON 


+ TEST IF CHECK ALL SECTORS 
+NO-SKIP 
*GO READ ALL HEADERS 


+GO VERIFY HEADER 
+CHECK IF HILIMIT REACHED 


+NO-LOOP 
+ INIT ERROR SWITCH 


SEQ 0091 


OUTERR MACY11 30(104%6) O4-NOV-77 13:30 PAGE 84-7 
DZRLOA. P11 O4-NOV-77 11:51 RTEST 4% SEINCREMENTAL FORWARD SEEK HEAD 0 


5427 025512 720655: 


5428 025512 ENDTST 
(3) 02551 L10026: 


512 
(3) 025512 104001 EMT CSETST 





OUTERR 


DOZRLOA. 


MACY11 30(1046) 
Pil O4-NOV-77 1 


025514 


025654 


025722 


012737 
004737 
004737 
025722 
004737 
005737 
001402 


104032 
000152 
013705 
004737 
025722 


104002 
004737 
025712 


104020 


103007 
023737 
001003 
004737 
000405 
013737 
005337 
004737 
025712 
012701 
004737 
025712 


004737 
025712 


032737 
001406 
004737 
025712 
004737 
025712 


023737 


103726 
012737 


104003 


006102 
014714 
014732 


017124 
002524 


013166 
016324 


020652 


002516 
017210 
002516 
002514 
015624 
000226 
020404 
021000 


000002 
021120 
020016 


013164 
000002 


04-NOV-77 
1: 51 


002424 


002514 


002514 


002416 


002514 
002430 


. SBTTL 
BGNTST 


23: 


BGNSUB 


7216S: 


5S: 
7$: 


115: 


60S: 
ENDSUB 


10031: 
721658: 


13:30 PAGE 84-8 
STEST 4 


Cc 8 
SZINCREMENTAL FORWARD SEEK HERD 0 


STEST 5S ZZINCREMENTAL REVERSE SEEK HEAD 0 

+ TEST § rs 
MoV #P2TOSE. * eo ;SET ERROR HEADER 
JSR PC, TSTIN ; INITIALIZE TEST 
JSR PC, GSTATR ; CLEAR DRIVE 
#7T2165$ 
JSR PC, CHOSHD ;GO CHOSE HEAD 
TST DESHD ; TEST IF HEAD O SELECTED 
BEQ 23 ;YES - SKIP 
EXIT TST ;ELSE EXIT TEST 
ENT CSEXIT 
.WORD 1L10030-. 
MOV HILIMW. RS ;SET TO POSITION HDS TO HILIMIT 
JSR PC, POSHDS ; POSITION HEADS 
#721655 

TS. 1: 

ENT CS$BSUB 
JSR PC, GETPOS ;GET POSITION 
#605 
INLOOP >; CHECK IF IN ERROR LOOP 
EMT CSINLP 
BNCOMPLETE 5s >;NO - SKIP 
BCC 5s 
CMP CURCYL. NEWCYL ; CHECK IF POSITIONED AT DES LOC 
BNE 5S >NO - SKIP 
= —" $e SWAP OLD AND NEW CYLINDERS 
MOV CURCYL. NEWCYL ;PUT CURRENT INTO NEW 
DEC NEWCYL ;DEC FOR ONE CYLINDER REVERSE SEEK 
JSR PC, XSEEK ; SEEK TO IT 
#605 
MOV #150.,R1 ;SET WAIT FOR 15 MS 
JSR PC, RDYWAIT ;WAIT FOR READY 
#608 
JSR PC, VERPOS ; VERIFY POSITION 
#608 
BIT #ALLSEC.OPFLAG ;TEST IF USE ALL SECTORS 
BEQ 11$ ;NO-SKIP 
JSR PC, RDALHD ;ELSE READ ALL THE HORS 
#608 
JSR Pc. VERHOR ; VERIFY THE HEADERS 
#608 
CMP LOL IMW. NEWCYL ; CHECK IF REACHED LOLIMIT 
BLO T2168 ;NO - LOOP 
MOV #2. ERRSWI ; INIT ERROR SWITCH 
EMT CSESUB 


0 SF 


SEQ 0093 


OUTERR MACY11 30(1046) O4-NOV-77 13:30 PAGE 84-9 
DZRLOA. P11 O4-NOV-77 11:51 aTEST 5 HZINCREMENTAL REVERSE SEEK HEAD 0 SEQ 0094 
$477 025722 ENDTST 
(3) 025722 L10030: 


(3) 025722 104001 ENT CSETST 


—E 8 
OUTERR MACY11 30(1046) O4%-NOV-77 13:30 PAGE 84-10 


OZRLOA. P11 O4-NOV-77 11:51 STEST 5 SZINCREMENTAL REVERSE SEEK HEAD 0 SEQ 0095 
5479 
5480 
5481 .SBTTL TEST 6 ZZINCREMENTAL FORWARD SEEK HEAD 1 
5482 025724 BGNTST > TEST 6 
(3) 025724 T6: 
5483 025724 012737 006124 002424 MOV #PZTOGE.ERHEAD ;SET ERROR HEADER 
5484 025732 004737 014714 JSR PC, TSTINT ; INITIALIZE TEST 
5485 025736 004737 014732 JSR PC, GSTATR ; CLEAR DRIVE 
5486 025742 026146 #722655 
5487 025744 005037 002524 CLR DESHD ;SET HEAD TO O 
5488 025750 013705 013164 MOV LOL IMW. RS ; CLEAR FOR POSITION HDS TO LOLIMIT 
5489 025754 004737 016324 JSR PC, POSHDS ;POSITION HOS 
5490 025760 026146 #72265$ 
5491 025762 012737 000001 002524 Mov #1, DESHD ;SET TO HEAD 1 
5492 025770 032737 010000 013162 BiT #HEADLM. MISWIW ; TEST IF HEAD SPECIFIED 
5493 025776 001405 BEQ 23 ;NO - SKIP 
5494 026000 005737 013170 TST HEADW ; TEST iF IT |S HEAD O 
5495 026004 001002 BNE 23 ;NO - SKIP 
5496 026006 EXIT TST ;ELSE EXIT TEST 
(3) 026006 104032 ENT CSEXIT 
(3) 026010 C00136 .-WORD 1L10032-. 
5497 026012 23: 
5498 026012 BGNSUB 
(3) 026012 To. 1: 
(3) 026012 104002 EMT CS$BSUB 
5499 026014 004737 02C652 T2278: JSR PC, GETPOS ;GET CURRENT POSITION 
5500 026020 INLCOP ; CHECK IF IN ERROR LOOP 
(3) 026020 104020 EMT CSINLP 
5501 026022 BNCOMPLETE 5% ;NO - SKIP 
(2) 026022 103007 BCC 55 
5502 026024 023737 002516 002514 CMP CURCYL. NEWCYL * CHECK IF AT DESIRED LOCATION 
5503 026032 001003 BNE 5% NO - SKIP 
5504 026034 004737 017210 JSR PC, ONSWAP : SWAP OLD AND NEW CYLINDER 
5505 026040 000405 BR 7$ > SKIP 
5506 026042 013737 002516 002514 5%: MOV CURCYL, NEWCYL > MOVE CURRENT INTO NEW 
5507 026050 005237 002514 INC NEWCYL ;BUMP NEWCYL FOR ONE CYL FWRD SEEK 
5508 026054 73: 
5509 026054 004737 015624 JSR PC, XSEEK >DO SEEK 
5510 026060 026136 #608 
5511 026062 012701 000226 MoV #150..R1 ;SET WAIT COUNT 15 MS 
5512 026066 004737 020404 JSR PC, RDYWAIT ;WAIT FOR READY 
5513 026072 026136 #608 
5514 026074 004737 021000 JSR PC, VERPOS ; VERIFY POSITION IS CORRECT 
mer 026100 026136 #6058 
1 
6517 026102 032737 O00002 013162 BIT @ALLSEC. MISWIW ;CHECK IF USE ALL SECTORS 
5518 026110 001406 BEQ 93 >NO-SKIP 
5519 026112 004737 021120 JSR PC, RDALHO > ELSE READ ALL HEADERS 
55290 026116 026136 #60$ 
5521 026120 004737 020016 JSR PC, VERHDR ; VERIFY READERS 
5522 026124 026136 #60$ 
5523 026126 9S: 
5524 026126 023737 013166 902514 CMP HILIMW, NEWCYL ; CHECK IF DONE 
5525 026134 101327 BHI 72278 >NO - LOOP 
5526 026136 012737 000002 002430 60%: MOV #2-ERRSHI > INIT ERROR SWITCH 


5527 026144 ENDSUB 


F 8 


OUTERR MACY11 30(1046) O4-NOV-77 13:30 PAGE 84-11 
aTEST 6 KXINCREMENTAL FORWARD SEEK HEAD 1 


DZRLOA. P11 O4-NOV-77 11:51 


(3) 026144 L10033: 

(3) 026144 104003 EMT CSESUB 
5528 026146 722658: 
5529 026146 ENOTST 

(3) 026146 L10032: 


(3) 026146 104001 EMT CSETST 


SEQ 0096 


vqrm 


=" 


G 8 
OUTERR MACY11 30(104%6) OY-NOV-77 13:30 PAGE 84-12 | 
DZRLOA. P11 © O4-NOV-77 11:51 XTEST 6 SEINCRENENTAL FORWARD SEEK HEAD 1 SEQ 0097 
5531 | 
5532 | 
5533 SBTTL TEST 7 EXINNER GUARD BAND DETECTION | 
5534 026150 BGNTST i TEST 7 | 
(3) 026150 1?: ; | 
5535 026150 012737 006146 002424 MOV -APZTO7E.ERHEAD SET ERROR HEADER 
5536 026156 004737 014714 JSR PC, TSTINT ; INITIALIZE TEST | 
5537 026162 004737 014732 JSR __ PC, GSTATR ; CLEAR ORIVE 
5538 026166 026346 #72365$ 
5539 026170 004737 017124 JSR PC, CHOSHD ;GO_ CHOSE HEAD 
5540 026174 012705 000377 72338: MOV = #255. , RS ;SET FOR POSITION TO 255 
5541 026200 004737 016324 JSR __- PC, POSHDS ; POSITION HEADS | 
5542 026204 026346 #72365$ | 
5543 026206 BGNSUB | 
(3) 026206 17.1: 
(3) 026206 104002 EMT CSBSUB 
5544 026210 012737 O00400 002514 MOV #256. ,NEWCYL =; SET FOR INNER GUARD BAND SEEK 
5545 026216 004737 15624 JSR PC, XSEEK ;D0 IT 
5546 026222 026322 #60 
5547 026224 012701 000003 MOV = #3. RI ;SET WAIT COUNT 3 MS 
4 
5549 026230 032762 000001 o0C000 7%: BIT RORDYMSK,RLCS(R2) CHECK IF READY 
5550 026236 001413 BEQ «9S ;NO-SKIP 
5551 026240 004737 014762 JSR —- PC, GSTAT ;GET ORIVE STATUS 
5552 026244 026322 605 
5553 026246 012703 007333 MOV  —- BMORDY. R3 ;SET NAME MESSAGE PTR 
5554 026252 012704 010246 MOV #CLOMS, R4 ;SET CONDITION MESSAGE PTR 
5555 026256 EPRHRD 701..,ERR4 ;REPORT READY ERROR 
(3) 026256 104443 TRAP —- TSERCODE 
(5) 026260 001275 WORD 701 
(5) 026262 011526 WORD ERRY 
5556 026264 O00416 BR 605 SEXIT TEST 
5557 026266 005301 95: DEC ORY DEC WAIT COUNT 
5558 026270 001404 BEQ = 118 ;SKIP IF 0 
5559 026272 WAITUS #10. :WAIT 100 US 
(3) 026272 012700 000012 MOV = #10. , RO 
(3) 026276 104027 EMT  CSHTU 
5560 026300 000753 BR 7$ ; LOOP 
5561 026302 012701 000226 118: MOV #150. - Rt ;SET WAIT COUNT 15 MS 
5562 026306 004737 020404 JSR PC, RDYWAIT :GO WAIT FOR READY 
S563 026312 026322 #605 
4 
5565 026314 004737 021000 JSR PC, VERPOS ;GO VERIFY POSITION IS 255 
5566 026320 026322 #608 
5567 026322 012737 000002 002430 605: MOV #2, ERRSWI ; INIT ERROR SWITCH 
5568 026330 ENDSUB 
(3) 026330 L 10035: 
(3) 026330 104003 EMT  CSESUB 
5569 026332 ESCAPE TST SEXIT TEST IF ERROR 
(3) 026332 104010 ENT  CSESCAPE 
(3) 026334 000012 WORD = L10034-. 
5570 026336 004737 017150 JSR —- PC, SHAPHD GO SWAP TO HEAD 1 OR END TEST 

5571 026342 026346 158 ; ABORT RETURN 

5572 026344 000713 BR 12338 ;REPEAT THE TESTS 

5573 026346 158 

5574 026346 123658: 


H 8 
OUTERR MACY11 30(1046) O4-NOV-77 13:30 PAGE 84-13 
aTEST 7 


DZ2RLOA. P11 O4-NOV-77 11:51 XXINNER GUARD BAND DETECTION SEQ 0098 
5575 026346 ENDTST 
(3) 026346 L10034: 


(3) 026346 104001 EMT CSETST 






APL 


MACY11 30(1046) 


026350 
026350 
026350 
026356 
026362 
026366 
026370 
026374 
026400 
026404 
026406 
026414 
026422 
026424 
026430 
026432 
026432 
026434 
026436 
0264 36 


012737 
004737 
004737 
026574 
005037 
013705 
004737 
02€574 
012737 
032737 
001405 
005737 
001002 


104032 
C00140 


104002 
004737 
026564 


104020 


103007 
023737 
001003 
004737 
000405 
013737 
005337 
004737 
026564 
012701 
004737 
026564 
004737 
026564 
032737 
001406 
004737 
026564 
004737 
026564 


023737 
103726 
012737 


026572 
026572 


O4-NOV-77 1 


006172 
014714 
014732 
002524 
013166 
016324 


000001 
010000 


013170 


020652 


002516 
017210 
002516 
002514 
015624 


000226 
020404 


021000 
000002 
021120 
020016 


013164 
000002 


04-NOV-77 
1: 51 





002424 


002524 
013162 


002514 


002514 


013162 


002514 
002430 


13: 


30 PAGE 84-14 
XTEST 7 


. SBTTL 
BGNTST 


2S: 
BGNSUB 


T2475: 


5S: 
7%: 


9S. 


60S. 
ENDSUB 


L10037: 


HKINNER GUARD BAND DETECTION 


XXINCREMENTAL REVERSE SEEK HEAD 1 
+ TEST 8 


XTEST 8 

MOV #P2TO8E. ERHEAD 
JSR PC, TSTINT 

JSR PC. GSTATR 
#T2465S 

CLR DESHD 

MoV HILIMW. RS 

JSR PC, POSHDS 
#T2465$ 

MOV #1, DESHD 

BiT #HEAOLM. MISWIW 
BEQ 2$ 

TST HE ADW 

BNE 23 

EXIT TST 

ENT CSEXIT 

-WORD L10036-. 

EMT C$BSUB 

JSR PC, GETPUS 
#60$ 

INL OOP 

ENT CSINLP 
BNCOMPLETE 5$ 
BCC 5$ 

CMP CURCYL, NEWCYL 
BNE 5$ 

JSR PC, ONSWAP 

BR 7$ 

MOV CURCYL, NEWCYL 
DEC NEWCYL 

JSR PC, XSEEK 

#60$ 

MoV #150.,R1 

JSR PC, RDYWAIT 
#608 

JSR PC, VERPOS 
#605 

BIT ®ALLSEC, MISWIbi 
BEQ 98 

JSR Pc, RDALHD 
#605 

JSR PC, VERHOR 
#608 

CMP LOL IMW. NEWCYL 
BLO T2475 

MOV #2, ERRSHI 


T8: : 
;SET ERROR HEADER 
; INITIALIZE TEST 
;GET STATUS & CLEAR 


+SET TO HEAD O 
;SET TO POSITION HDS AT HILIMIT 
POSITION HOS 


SET TO SELECT HD 1 
+ TEST IF bate SPECIFIED 


*NO - SK 
+ TEST IF ‘nero SPECIFIED iS 0 
NO - SK 


+ESLE PKIT TEST 


T8. 1 
>GET CURRENT POSITION 
>;CHECK IF IN ERROR . OP 
7NO - SKIP 
; CHECK IF POSITIONED AT DESIRED LOC 
;NO - SKIP 
4-7 SWAP OLD AND NEW CYLINDER 
; SKIP 


+MOV CUR TO NEW 
+DEC NEWCYL FOR 1 CYL REV SEEK 
DO SEEK 


>SET WAIT FOR 15 MS 
;WAIT FOR READY 


; VERIFY POSITION 

> TEST IF ALL SECTORS 
>NO-EXIT 

;READ ALL HEADERS 

; VERIFY HEADER 
;CHECK IF AT LOLIMIT 


*NO - LOOP 
> INIT ERROR SWITCH 





J 8 


OUTERR MACY11 3061046) O4-NOV-77 13:30 PAGE 84-15 
DZRLOA. Pil O4-NOV-77 11:51 xTEST 8 XKINCREMENTAL REVERSE SEEK HEAD 1 SEQ 0100 
(3) 026572 104003 EMT CSESUB 
5625 026574 T2465S: 
5626 026574 ENDTST 
(3) 026574 L10036: 


(3) 026574 104001 EMT CSETST 


OUTERR 


DZRLUA. 


MACY11 30(1046) 


Pil 


026576 


027026 


012737 
004737 
004737 
027070 
004737 
013705 
004737 
027070 
004737 
027070 
013737 
012704 
012405 
013701 
163701 
021401 
101073 
060537 
023737 
002004 
013737 
000407 
023737 
003403 
013737 


104002 
104020 
103011 
004737 


027012 
023737 


012737 


104003 


104010 
000044 
023737 


O4-NOV-77 
O4-NOV-77 11:51 


006214 
014714 
014732 
017124 
013164 
016324 
020652 


002516 
002274 


013166 
013164 
002514 
002514 
013164 
002514 
013166 


020652 
002516 


017210 
015624 


005670 
020404 


021000 
000002 


013166 


002424 


002514 


012164 
002514 
013166 
002514 


002514 


002470 


002514 


13: 


30 PAGE 84-16 
aTEST 9 


.SBTTL xXTEST 9 
BGNTST 


K 8 
XXSEEK TESTS 


*XSEEK TESTS 


+ TEST 9 


Nov AP2TOSE, ERHEAD 
JSR PC, TSTIN 
Ise PCLGSTATR 
12565$ 
JSR PC, CHOSHD 
MOV = LOLIMW, RS. 
JSR PC, POSHDS 
T2565$ 
T256$: JSR —- PC, GETPOS 
T2565$ 
MOV = CURCYL. NEWCYL 
MOV —- #TZ5TBL, RY 
T2588: MOV (RY) +, RS 
MOV —- HILIMW, R14 
SUB ss LOLIMW. RI 
CMP (RY), RI 
BHI 125178 
T2578: ADD = R5, NEWCYL 
CMP NEWCYL, LOL IMW 
BGE 95 
MOV LOL IMW, NEWCYL 
BR 118 
95: CMP = NEWCYL, HILT MW 
BLE 118 
MoV HILIMW. NEWCYL 
115 
BGNSUB 
ENT  _CSBSUB 
INLOOP 
ENT —CSINLP 
BNCOMPLETE 135 
BCC 135 
JSR PC, GETPOS 
60S 
CMP CURCYL, NEWCYL 
BNE 138 
JSR PC, ONSHAP 
138: JSR PC, XSEEK 
60S 
V_. #3000... R1 
JSR™ PC, ROYWAIT 
60S 
JSR «PC, VERPOS 
60S 
60S: MOV #2, ERRSWI 
ENOSUB 
L10041 
ENT — CSESUB 
ESCAPE TST 
ENT CSESCAPE 
“WORD L10040-. 
CMP HIL IMW, NEWCYL 


T9: : 
+ SET ERROR HEADER 
+ INITIALIZE TEST 
CLEAR DRIVE 


.+G0 CHOSE HEAD 


;SET TO POSTION HEADS TO LOLIMIT 
sPOSITION HOS TO LOWLIMIT 


GET CURRENT POSITION 


;PUT CURRENT INTO NEW 

;SET POINTER TO TABLE OF SEEK DIFF 
;PUT FIRST IN RS 

+GET HILIMIT 

; SUBTRACT LOLIMIT 

; CHECK IF NEW DIFFERENCE iS IN BOUNDS 
;NO - SKIP TEST 

;ADD TO PRESENT POSITION 

; CHECK IF AT OR PAST LOLIMIT 

+NO - SK KIP 

;ELSE SET TO LOLIMIT 


>; CHECK IF AT HILIMIT OR GREATER 
;NO - SKIP 
ELSE SET FOR HILIMIT 
T9. 1: 
; CHECK IF IN ERROR LOOP 
;NO - SKIP 
;GET CURRENT POSITION 
; CHECK IF HEADS AT DESIRED POSITION 


;NO - SKIP 
;ELSE SWAP CURRENT AND NEW CYLINDERS 
>DO SEEK 


+SET WAIT COUNT 
*WAIT FOR READY 
; VERIFY POSITION 


; INITIALIZE ERROR SWITCH 


-EXiT TEST IF ERROR 


CHECK IF SEEK WAS TO HILIMIT 


OUTERR 


DZRLCA. 


MACY11 301046) 


Pil 


027034 
027036 
027040 
027042 
027050 
027052 
027056 
027060 
027064 
027066 
027070 
027070 
027070 
027070 


O4-NOV-77 


001002 
005405 
000714 
023737 
001310 
021427 
001276 
004737 
027070 
000662 


104001 


O4-NOV-77 13:30 PAGE 84-17 
11:51 XTEST 9 


013164 002514 
000377 
017150 


155: 


72517S: 


725655: 


ENDTST 


L10040: 


ENT 


L 8 
XXSEEK TESTS 
15$ 
RS 
T257$ 
LOL MW, NEWCYL 
T257$ 
(R4), #255. 
T258$ 
PC, SWAPHD 
T256$ 


CSETST 


;NO - SKIP 
;ELSE SET RS TO REPEAT DIFF IN REVERSE 


; TEST IF LAST SEEK WAS TO LOLIMIT 
;NO - GO DO SEEK TEST 

; CHECK IF ALL TABLE DIFF USED 

;NO - SKIP 

;GO SWAP TO HEAD 1 OR END TEST 

; ABORT RETURN 

;REPEAT TEST HEAD 1 


ne 
SEQ 0102 


OUTERR 
DZRLOA 


Pil 


027072 


027332 


MACY11 30(1046) 
O4-NOV-77 


012737 


004737 
027366 
004737 
027366 
010537 
104002 
104020 


103011 


012737 


104003 
104010 


O4-NOV-77 13: 
11: 51 


006221 
014714 
014732 
017124 
000001 
020009 
013166 
002514 
040000 


013164 
015624 


005670 
020404 


020652 
002514 


020652 
002516 


017210 
015624 


005670 
020404 


021000 
002522 


002514 
040000 


013164 
000002 


002424 


013162 


013162 
002514 


002514 


013162 
002514 
002430 


= PAGE 84-18 
xTEST 


.SBTTL TEST 10 
BGNTST 


T2665: 
23: 


5S: 


T2675: 


BGNSUB 


185: 


60S: 
ENDSUB 


10 


L10043: 


XXFORWARD OSCILLATING SEEK 


’ 


MoV #P2T10E, ERHEAD 
JSR PC, TSTINT 

JSR PC, GSTATR 
T2665$ 

JSR PC, CHOSHD 

MOV #1,R5 

BIT #HICYL, MISWIW 
BEQ 2$ 

MoV HILIMW, RS 

CLR NEWCYL 

BIT #LOCYL, MISWIH 
BEQ S$ 

MoV LOL IMW. NEWCYL 
JSR PC, XSEEK 
72665$ 

Mov #3000. ,R1 

JSR PC, RDYWAIT 
T2665$ 

JSR PC, GETPOS 
T2665$ 

Mov RS, NEHCYL 

EMT CSBSUB 

INLOOP 

ENT CSINLP 
BNCOMPLE TE 18% 
BCC 18S 

JSR PC, GETPOS 

60S 

CMP CURCYL, NEWCYL 
BNE 18% 

JSR PC, ONSHAP 

JSR PC, XSEEK 

60S 

MoV #3000. .R1 

JSR PC, ROYWAIT 
60S 

JSR PC, VERPOS 

60S 

TST DESSGN 

BEQ 60S 

CLR NEWCYL 

BIT #LOCYL. MISHIW 
BEQ 18% 

Mov LOL IM, NEWCYL 
BR 18$ 

Mov #2, ERRSHI 

EMT CSESUB 

ESCAPE TST 

ENT CSESCAPE 


— OSCILLATING SEEK 


+ SET ERROR HEADEP 
+ INITIALIZE TEST 


‘CLEAR DRIVE 
GO CHOSE HEAD 


+LOAD RS FOR FIRST 


T10: : 


SEEK 
+ TEST IF Hi CYLINDER SPECED 
| 


NO - SKIP 
ELSE SET UPPER LIMIT 
+SET TO SEEK TO CYL O 
;CHECK IF LO CYL SPEC'D 


;NO - SK 


; 


iP 
ELSE SET LOWER LIMIT 
SEEK 


;SET WAIT COUNT FOR 120 MS 


;WAIT FOR READY 

GET HEAD POSITION 

;LOAD NEW CYLINDER INTO NEWCYL 
T10. 1: 
+ CHECK IF IN ERROR LOOP 


;NO - SKIP 
;GET POSITION 


CHECK IF HEADS AT DESIRED LOC 


;NO - SKIP 


+; SWAP OLD AND NEW 


DO SEEK 


+ SET WAIT COUNT 120 MS 
;WAIT FOR READY 


> VERIFY HEAD POSITION 
sTEST IF > SEEK REV 


vYES - SK 


+ ELSE set. To SEEK TO 0 


;CHECK IF LO LIMIT SPEC'D 


+NO - SKIP 


-ELSE SET LOW LIMIT FOR SEEK 


> INIT ERROR SWITCH 


EXIT TEST IF ERROR 


SEQ 0103 


OUTERR 


DZRLOA. 


MACY11 301046) 
Pil 


027334 
027336 
027344 
027346 
027350 
027354 
027356 
027362 
027364 
027366 
027366 
027366 
027366 


000032 
032737 
001004 
005205 
020527 
001311 
004737 


027366 


000654 


104001 


O4-NOV-77 13:30 PAGE 84-19 
XTEST 10 


O4-NOV-77 11:51 


020000 013162 


000400 
017150 


208: 


726658: 
ENDTST 
L1004%2: 


ENT 


N 8 
KZFORWARD OSCILLATING SEEK 


L10042-. 

#HICYL-MISWIW <> TEST IF UPPER LIMIT SPEC'D 

20$ YES - SKIP 

RS +BUMP RS 

RS, #256. ;ALL CYLINDERS DONE 

T267% *+NO - GO DO NEXT CYLINDER 

PC, SWAPHD ;GO SWAP TO HEAD 1 OR END TEST 
; ABORT RETURN 

T266% GO DO TESTS 

CSETST 


SEQ 0104 


OUTERR MACY11 30(104%6) O4%-NOV-77 13:30 PAGE 84-20 
DZRLOA. P11 O4-NOV-77 11: 51 STEST 11 REREVERSE OSCILLATING SEEK SEQ 0105 
5747 .SBTTL TEST 11 ar at OSCILLATING SEEK 
5748 027370 BGNTST + TEST 
(3) 027370 Til 
$749 027370 012737 006236 002424 MoV @PZTIIE.ERHEAD SET ERROR HEADER 
5750 027376 004737 014714 JSR PC, TSTINT + INITIALIZE TEST 
5751 027402 004737 014732 JSR PC, GSTATR CLEAR DRIVE 
5752 027406 027664 727658 
5753 027410 004737 017124 JSR PC, CHOSHD GO CHOSE HEAD 
5754 027414 012737 000377 002514 1275$: MOV #255. , NEWCYL + SEEK OUT TO 255. 
6755 027422 032737 020009 013162 BIT SHICYL.MISWIW =; TEST IF _—— LIMIT SPEC'D 
5756 027430 001403 BEQ 2$ +NO - SKI 
$757 027432 013737 013166 002514 Mov HILIMW, NEWCYL 7 ELSE ser UPPER LIMIT 
5758 027440 012705 000376 23: Mov #254. ,R5 ;SET RS FOR FIRST SEEKS 
5759 027444 032737 O4O0000 013162 BIT MLOCYL,MISWIW ;CHECK IF LO LIMIT SPEC'D 
5760 027452 001402 BEQ 5$ NO - SKIP 
5761 027454 013705 013164 MOV LOL I MW. RS ;SET LOWER LIMIT 
5762 027460 004737 015624 5S: JSR PC, XSEEK DO SEEK 
5763 027464 027664 727658 
5764 027466 012701 005670 Mov #3000. .R1 ;SET WAIT TO 120 MS 
5765 027472 004737 020404 JSR PC, ROYWAIT ;WAIT FOR ORIVE READY 
5766 027476 027664 727658 
5767 027500 004737 020652 T2768: JSR PC, GETPOS GET POSITION 
5768 027504 027664 727658 
5769 027506 010537 002514 Mov RS, NEWCYL ;SET FOR NEXT SEEK 
5770 027512 BGNSUB 
(3) 027512 Ti1. 1: 
(3) 027512 104002 EMT CSBSUB 
5771 027514 ~ pe CHECK IF IN ERROR LOOP 
(3) 027514 104020 ENT CSINLP 
5772 027516 BNCOMPLETE 18$ ;NO - SKIP 
(2) 027516 103011 BCC 18$ 
5773 027520 004737 020652 JSR PC, GETPOS ELSE GET POSITION 
5774 027524 027624 60S 
5775 027526 023737 002516 002514 CMP CURCYL.NEWCYL -;CHECK IF AT DESIRED CYL 
5776 027534 001002 BNE 18$ NO - SKIP 
5777 027536 004737 017210 JSR PC, ONSWAP ELSE SWAP OLD AND NEW CYL 
5778 027542 004737 015624 188: JSR PC, XSEEK DO SEEK 
5779 027546 027624 608 
5780 027550 012701 005670 MOV #3000. .R1 +SET WAIT FOR 120 MS 
5781 027554 004737 020404 JSR PC, RDYWAIT ;WAIT FOR READY 
5782 027560 027624 608 
5783 027562 004737 021000 JSR PC, VERPOS ; VERIFY POSITION 
5784 027566 027624 608 
5785 027570 005737 002522 TST DESSGN CHECK IF JUST SEEK FWD 
5786 027574 001013 BNE 608 *YES - SKIP 
5787 027576 012737 000377 002514 MOV #255. , NEWCYL sELSE SEEK TO TO 255 
5788 027604 032737 020000 013162 BIT SniCYL,MISHIW => TEST IF HILIMIT SPEC'D 
5789 027612 001753 BEQ 18$ NO - SKIP 
5790 027614 013737 013166 002514 MoV HILIMW.NEWCYL ;SET TO UPPER LIMIT 
5791 027622 000747 BR 18$ 
5792 027624 012737 000002 002430 60%: MoV #2, ERRSWI 7 INIT ERROR SWITCH 
5793 027632 ENDSUB 
(3) 027632 L10045: 
(3) 027632 104003 EMT CSESUB 
5794 027634 ESCAPE TST EXIT TEST IF ERROR 


(3) 027634 104010 ENT CSESCAPE 


Vv" 


GUTERR 


DZRLUA. P 


MACY11 30(1046) 
11 O4-NOV-77 


027636 


027664 
027664 


000654 


104001 


O4-NOV-77 13:30 PAGE 84-21 
11: 51 aTEST 11 


O40000 013162 


017150 


208: 


727655: 


ENOTST 


L10044: 


EMT 


c 9 
REREVERSE OSCILLATING SEEK 


L10044-. 
@LOCYL.MISWIW ; TEST IF 1* peg SPEC'D 
20$ +YES - SKI 
RS + DEC CYLINDER COUNT 
276% + 1F STILL POSITIVE. DO SEEKS AGAIN 
PC, SWAPHD +GO SWAP TO HEAD 1 OR END TEST 
; ABORT RETURN 
T2758 ;LOOP AGAIN 
CSETST 


SEQ 0106 


OUTERR 


DZRLOA. 


Pil 


MACY11 30(1046) 
O4-NOV-77 11 


027666 


030150 
030152 


012737 


004737 
031432 
013762 
013762 
010046 


012790 
104027 
005737 
001010 
004737 


012603 


104443 
002261 
011344 
000137 
005737 
100005 


O4-NOV-77 
: 51 


006253 002424 
002652 


013162 


031432 
014714 
014732 


002552 
000030 


002644 
002514 
015624 


005670 
020404 


021000 


017124 
002562 
002564 
002576 
002600 
000001 
000200 
000110 
002444 
002000 
015614 


002452 
002446 


002514 
002646 
002550 
002550 
002550 


000004 
900000 
000012 
002420 
014562 


031432 
002456 


23: 
1$: 


4§: 


8$: 


9S: 


175: 


13: 30 PAGE 84-22 
RTEST 12 


_SBTTL TEST 12 
BGNTST 


8 
ERRHRD 


0 9 
SEEK TIMING 


#P2T12E. ERHEAD 
PASNUM 

2$ 

MISWIW 

1$ 


65$ 
PC, TSTINT 
PC, GSTATR 


#8OF IN, RO 


NEWCYL 
PC, XSEEK 


#3000. .R1 
PC, RDYWAIT 


PC, VERPOS 


PC, CHOSHD 
#OF OUT. RO 

#8 OF OUTU, R1 
#OROUT. RI 
#OROUTU, RY 
#1, NEWCYL 
#128. , COUNT 
#ROHEAD, TEMPS 
RLORV. TEMPS 
#81710, TEMPS 
PC, XSEEKT 


L. DA, RLDACR2) 
L.CS,RLCS(R2) 
RO. - (SP) 

#10. 

#10.,R0 
CSWTU 

DONE 

178 

Pc, WAITIN 
(SP)+,R3 
1201... ERR1 
TSERCODE 


1 
1202... ERR6 


SEEK TIMING 
; TEST 12 


712: : 
;SET ERROR HEADER 
co. i IF PASS O 
iN ne 


SKIP 
; TEST IF MANUAL TESTS WERE RUN 
> YES - SKIP 
sELSE EXIT TEST 
; INITIALIZE TEST 
; CLEAR ORIVE 


;GET ADORESS OF 1ST TIME VALUE 
SET COUNT FOR CLEAR 
;CLEAR TIMER STORAGE 


> CLEAR PASS COUNTER 
ft og hha HEADS AT 0 
K 


, 


+SET WAIT FOR 300 MS 
;WAIT FOR READY 


> VERIFY POSITION 


;GO CHOSE HEAD 
;SET PTRS FOR 1 CYL FWD OUTER TIMER 


+SET NEWCYL TO CYL 1 
;SET COUNTER FOR SEEK LOOP 
+BUILD READ HEADER COMMAND 


DO SEEK BUILD BUT DO NOT START 
>LOAD RL REGISTERS 

STORE RO 

;WALT FOR INTERRUPT 


> TEST IF INTERRUPT 
>YES - SKIP 

;WAIT FOR INTERRUPT 
;GET MESSAGE POINTER 


; CHECK IF ANY ERRORS 
;NO - SKIP 


SEQ 0107 


OUTERR 


DZRLOA. 


Rg 3011046) 


O4-NOV-77 11 


030152 104443 
002262 
011646 
000137 
005037 
013762 


012700 
104027 


104052 
010005 
012600 
013737 
004737 
031432 
005737 
001403 
060510 


022737 


031432 
002420 
002550 


003720 


002550 
021000 


002522 


002646 
017210 
000470 


000470 
000006 


002644 
000001 


000177 
015624 


005670 
020404 


021000 
002556 


000002 


O4-NOV-77 
1:51 


000000 


002446 


15S: 
168: 


18S: 


10S: 


002644 
002514 


002514 


002644 24%: 


13:30 PAGE 84-23 
RTEST 12 


—e 9 
ESEEK TIMING 


TSERCODE 
1202 
ERRE 
65$ 


DONE 
TEMPS. RLCS(R2) 
#2000. 


PC, VERPOS 
DESSGN 
15% 

PS, (RO) 
(R14 


18 
PC, ONSWAP 
9$ 


#312. , (RO) 
#312. , (R3) 
#6,R5 


PASCNT 
#1,PASCNT 
24S 

#127. ,NEWCYL 
PC, XSEEK 


#3000. .R1 
PC, RDYWAIT 


PC, VERPOS 


SOFMID. RO 
ROFMIDU, R1 
RORNID. RZ 
#ORMIDU, RY 
#128. ,NEWCYL 


8$ 
#2, PASCNT 


CLEAR INTERRUPT FLAG 
LOAD RL REGISTER 
;WAIT FOR INTERRUPT 


;GET TIME USED 


sRESTORE RO 
+SET IF ERROR TO REPORT 
VERIFY POSITION 


; CHECK WHICH _ DIRECTION 
;REVERSE - SK 

ADD TO FORWARD TOTAL 

ADD IN OVERFLOW 


; SKIP 

;ADD TO REVERSE TOTAL 

;ADD IN OVERFLOW 

;DEC SEEK COUNT 

;SKIP IF O 

;ELSE SWPP OLD AND NEW CYL 

;REDO SEEK LOOP 

;SUB CONSTANT FOR READ HEADER TIME 


>SET SHIFT COUNT TO DIVIDE BY 64 
;DIVIDE BOTH TOTALS BY 64 


;BUMP PASS COUNT 

; TEST IF PASS 1 

;NO - SKIP 

;ELSE SET TO POSITION HDS TO 127 
SEEK 


’ 


;SET WAIT COUNT FOR 300 MS 
;WAIT FOR READY 


+ VERIFY POS!TION 
;SET PTRS FOR TiMING 1 CYL SK AT 127 


SET NEWCYL TO 128 
>D0 SEEK LOOP 
; TEST IF PASS 2 


SEQ 0108 


OUTERR 
LZ2RLOA 


MACY11 3011046) 
O4-NOV-77 11:51 


Pil 
030426 


030740 


001033 


004737 


O4-NOV-77 


000376 
015624 


005670 
020404 


021000 


002552 
002554 
002566 
002570 
000377 
030034 
000003 


002514 
015624 


005670 
020404 


021000 


002606 
002010 
002616 
002610 
000177 


000004 


000200 
015624 


005670 
020404 


021000 
002602 
002604 
002612 
002614 
000377 
000005 


002514 
015624 


005670 
020404 


021000 


002514 


002514 
002644 28%: 


002514 
002644 32%: 
002514 


002514 
002644 36%: 


13:30 PAGE 84-24 
RTEST 12 


, 
ESEEK TIMING 


28$ 
#254. , NEWCYL 
PC, XSEEK 


#3000. .R1 
PC, RDYWAIT 


PC, VERPOS 


#OF IN, RO 
OF INU, R1 
FORIN. RS 
#OR INU, RY 
#255. , NEWCYL 


8$ 
#3. PASCNT 
32% 
NEWCYL 
PC, XSEEK 


#3000... R1 
PC, ROYWAI 


PC, VERPOS 


#HF OUT. RO 
#HF OUTU, R1 
#HROUT, RI 
#HF OUTU, RY 
#127. , NEWCYL 


398 
#4, PASCNT 


368 
#128. . NEWCYL 
PC, XSEEK 


#3000. .R1 
PC, RDYWAIT 


PC, VERPOS 
RHF IN, RO 

HF INU, R1 
#HRIN, RZ 

RHR INU, RY 
#255. , NEWCYL 
39% 

#5, PASCNT 
40$ 


NEWCYL 
PC, XSEEK 


#3000. .R1 
PC, RDYWAIT 


PC, VERPOS 


;NO - SKIP 
; SET ay TIME 1 CYL SEEK AT INNER 
LIM! 


‘ 


+SET WAIT COUNT FOR 300 MS 
;WAIT FOR READY 


;VERIFY POSITION 
+ SET POINTERS 


;LORD NEW CYLINDER 

+00 SEEK LOOP 

; TEST IF PASS 3 

;NO - SKIP 

;ELSE SET UP TO TIME 128 CYL SEEK 
; AT OUTER LIMIT 


SET WAIT COUNT FOR 300 MS 
+WAIT FOR DRIVE READY 


+ VERIFY POSITION 
+ SET POINTERS 


+LOAD NEWCYL FOR 128 CYL SEEK 


; TEST IF PASS 4 

;NO - SKIP 

;ELSE SET UP TO TIME 128 CYL SEEK 
>; AT INNER LIMIT 


+SET WAIT COUNT FOR 300 MS 
;WAIT FOR READY 


> VERIFY POSITION 
+ SET POINTERS 


;SET NEWCYL TO 255 FOR 128 CYL SEEK 
;DO TIMING LOOP 

;TEST IF PASS 5 

;NO - SKIP 

;ELSE SET UP TO TIME 256 CYL SEEK 

> OVER ALL SURFACE 


/SET WAIT COUNT FOR 300 MS 
*WAIT FOR ORIVE READY 


VERIFY POSITION 


SEQ 0109 


OUTERR 
DZRLOA. 


MACY11 30(1046) 


O4-NOV-77 


Pil O4-NOV-77 11:51 


030744 


031212 
031216 
031222 
031226 
031232 


031432 
012700 
012701 
012703 
012704 
012737 
000137 


012746 
012746 
012746 
012746 
010600 
104017 
062706 


005046 
153716 
012746 
013746 
012746 
012746 
012746 
010600 
104017 
062706 


012746 
012746 
012746 
012746 
012746 
012746 
010600 
104017 
062706 


013746 
013746 
013746 
013746 
012746 
012746 
012746 
010600 
104017 
062706 


013746 
013746 
013746 
013746 
012746 
012746 
012746 
010600 


002622 
002624 


030034 


006547 
006504 
010421 
000003 


000010 


002445 
005423 
002440 
005412 
010447 
000005 


000014 


006641 
006633 
006624 
006616 
011041 
000005 


000014 


002632 
002562 
002556 
002552 
006652 
011073 
000006 


000016 


002632 
002576 
002572 
002566 
006666 
011073 
000006 


002514 


40S: 


13:30 PAGE 84-25 
aTEST 12 


G 9 
KESEEK TIMING 


#AFMID,. RO ;SET POINTERS 
#AFMIDU, R1 

#ARMID, RZ 

#ARMIDU, RY 

sane «tlone ;SET NEWCYL 


eFMT1. ae 
#VALDES, -(SP) 

@SKTMES, -(SP) 

#FMT1. 1,-(SP) 

#3, - (SP) 

SP. RO 

CSPNTF 


#10, SP 
Sn ee 


RLORV+1, (SP) 
#DRVNAM, -(SP) 
RLBAS. -(SP) 
#BASADD. - (SP) 
#5. -(SP) 


#14, SP 

#FMT18. #LAB IN, #LABMID, ALABOUT, #LABEXP 
#LABEXP, -(SP) 

#LABOUT. -(SP) 

#LABMID. - (SP) 

#LAB IN, -(SP) 

#FMT18. -(SP) 


#14, SP 

SFMNT19, SLABOCF. OF IN. OFMID, OFOUT. EXOCYL 
EXOCYL. - (SP) 

OF OUT, - (SP) 

OFMID, - (SP) 

#LABOCF, -(SP? 

#FMT19, -(SP) 


- SP 
SFMT19, #LABOCR, ORIN, ORMID, OROUT, EXOCYL 
EXOCYL, -(SP) 
OROUT, -(SP) 
ORMID, - (SP) 
ORIN, - (SP) 
#LABOCR, -(SP) 
#FMT1IS. -(SP) 
#6, - (SP) 
SP, RO 


OUTERR MACY11 3011046) 
DZRLOA. P11 


031234 
031236 
031242 
031242 
031246 
031252 
031256 
031262 
031266 
031272 
031274 
031276 
031302 
031302 
031306 
031312 
031316 
031322 
031326 
031332 
031334 
031336 
031342 
031342 
031346 
031352 
031356 
031362 
031366 
031370 
031372 
031376 
031376 
031402 
031406 
031412 
031416 
031422 
031424 
031426 
031432 
031432 
031432 
031432 


104017 
062706 


013746 
013746 
013746 
012746 
012746 
012746 
010600 
104017 
062706 


013746 
013746 
013746 
012746 
012746 
012746 
010600 
104017 
062706 


013746 
013746 
012746 
012746 
012746 
010600 
104017 
062706 


013746 
013746 
012746 
012746 
012746 
010600 
104017 
062706 


104001 


O4-NOV-77 


O4-NOV-77 11:51 


000016. 


002634 
002606 
002602 
006702 
011130 
000005 


000014 


002634 
002616 


002612 


006716 
011130 
000005 


000014. 


002636 
002622 
00€732 
011160 
000004 


000012 


002636 
002626 
006746 
011160 
000004 


000012 


13: 30. PAGE 84-26 
ATEST 12 


65S: 
ENOTST 
L1004%6: 


EMT 


H 9 
ESEEK TIMING 


CSPNTF 

#16, SP 

#FMT20. #LABHCF. HF IN, HFOUT. EXHCYL 
HF OUT. - (SP) 

HF IN, - (SP) 

#LABHCF, -(SP) 

#FMNT20, -(SP) 

#5, -(SP) 

SP, RO 


#14, SP 

SFMT20. SLABHCR, HRIN, HROUT, EXHCYL 
EXHCYL, - (SP) 

HROUT, - (SP) 

HR IN, - (SP) 

®LABHCR, -(SP) 

#FMT20. -(SP) 


#14, SP 

#FNT21, #LABACF, AFMID, EXACYL 
EXACYL, - (SP) 

AFMID. -(SP) 

#LABACF.-(SP) 

#FMT21,-(SP) 

a4, - (SP) 

SP.RO 

CSPNTF 

#12. SP 

#FMT21, @LABACR, ARMID. EXACYL 
EXACYL, - (SP) 

ARMID. - (SP) 

#LABACR, -(SP) 

#FMT21.-(SP) 

#4,-(SP) 

SP.RO 

CSPNTF 

#12, SP 


CSETST 


SEQ 0111 





















































MACY11 30(1046) 


Pil O4-NOV-77 11:51 


031434 
031434 
031434 
031442 
031446 
031452 
031454 
031462 
031470 
031472 
031476 
031500 
031500 
031502 
031504 
031512 
031516 
031520 
031524 
031530 
031532 
031536 


031712 





012737 
004737 
004737 
032114 
012737 
032737 
001405 
005737 
001002 


104032 
000440 
012737 
004737 
032114 
012701 
004737 
032114 
6004737 
032114 
005037 
012737 
012737 
112737 
105037 
005037 
013701 
013700 
012703 
012737 
004737 
031776 
005723 
100515 
005723 
100513 
005723 
OO11%1 
005723 
001197 
021327 
001004 
012737 
000403 
005737 
001075 
012311 
012705 
006311 
005305 
001375 
032713 
001402 


O4-NOV-77 13 


006267 
014714 
014732 


000001 
010000 


013170 


000377 
015624 


005670 
020404 


021000 


002526 
003062 
000020 
000u01 
002656 
002536 
002542 
002544 
003256 
000002 
022150 


177777 
000001 
002536 


000007 


000400 


002424 


002524 
013162 


002514 


002542 
002544 
002657 


002430 


002536 







30 PAGE 84-27 
xTES 


23: 


4$: 


78. 


8$. 


10S: 
119: 
12%: 


T 13 
.SBTTL TEST 13 
BGNTST 





XXBASIC READ DATA (BAD SECTOR FILE) 


, 


tate _s 
PC. TST 


PC, GSTATR 
#1, DESHO 


#HEADLM, MISWIW 
23 


HEADW 
2$ 

TST 
CSEXIT 
L10047-. 


#255. , NEWCYL 


PC, XSEEK 


#3000..R1 
PC, RDYWAIT 


PC, VERPOS 


DESSEC 
#FBSF IL, TEMPS 


#16. . TEMP6 
#1, NOERCT 
LOCERR 
TEMPS 
TEMPS, R1 
TEMP6, RO 
#IBUFF,R3 
#2, ERRSWI 
PC, XREAD 


#7,R5 


12$ 
#BiTS, (R3) 
15$ 


ee READ DATA (BAD SECTOR FILE) 


T13:: 
;SET ERROR HEADER 
; INITIALIZE TEST 
; CLEAR DRIVE 


+SET TO HEAD 1 
+ TEST IF HEAD SPEC'D 


NO - SKIP 
; TEST IF Ss 0 
*NO - SK 
s ELSE EXIT TEST 


POSITION HEADS AT 255 
DO SEEK 


SET WAIT COUNT FOR 300 MS 
;WAIT FOR INTERRUPT 


VERIFY POSITION 


SET FOR SECTOR O 

;SET TEMP STORAGE FOR FACTORY BS FILE 
SET MAX SECTOR COUNT 

;SET FOR NO ERROR COUNTING 

CLEAR LOCAL ERROR COUNTER 

CLEAR ONES DETECTED FLAG 

> INIT POINTERS 


> INIT ERROR SWITCH 
+D0 READ 


> TEST IF WORD O NOT NEG 

> YES. BAD FMT ERROR 

+ELSE TEST WORD 1 NOT NEG 
YES - BAD FMT ERROR REPORT 

> TEST WORD 2 1S O 

>NO - SKIP TO FMT ERROR RPT 

+ TEST WORD 3 IS O 

+NO - SKIP TO FMT ERROR RPT 

+ TEST IF ree WORD IS ALL 1°S 


*NO - SK 
as SET. 1" S DETECTED FLAG 


; TEST IF ONES HAVE BEEN DETECTED 
;YES - SKIP TO FMT ERROR RPT 
STORE CiLINDER WORD 

;ALIGN IT TO LOOK LIKE HEADER 


; TEST IF HEAD 1 
;NO - SKIP 


SEQ oni2 | 


OUTERR 


DZRLOA. 


Pil 


MACY11 301046) 
O4-NOV-77 11:51 


031714 


032142 


052711 
042713 
052321 
020327 
001345 
005737 
001457 
022737 
001461 
012737 
012737 
012737 
000676 
005237 
012777 


104020 


103667 
023737 
001014 
012703 
005237 


104443 
002425 
011344 
022737 
001421 
000737 
062737 
000643 
012703 


104443 
002426 
011344 
000737 
012703 


104443 
002427 
011344 
000733 
012737 
012737 
105737 
001402 
005237 


104001 


O4-NOV-77 


000100 
177400 


003656 
002536 
000044 
002665 
000044 
000024 


002656 
177777 


002526 


005273 
002656 


002666 


000904 
005323 


005350 


000002 
000001 
002656 


002650 


002544 


002542 
002544 
002526 


150532 


002544 


002542 


002526 


002430 
002664 


13: 


30 PAGE 84-28 
XTEST 13 


155: 


375: 


39S: 


40S: 


415: 


45S: 


48s: 


65S: 


60S: 
ENOTST 


L 10047: 


BIS #B1T6, (R1) 
BIC #177400, (R3) 
BIS (R3)+, (RID+ 
CMP R3. # IBUFF +256. 
BNE 8$ 

TST TEMPS 

BEQ 48$ 

CMP #36. , TENPG 
BEQ 65$ 

MOV #SBSF IL, TEMPS 
MOV #36., TEMPG 
MOV #20. . DESSEC 
BR 4§ 

INC LOCERR 

MOV #-1,dTEMPS 
INLOOP 

ENT CSINLP 
BCOMPLETE 

BCS 4$ 

CMP DESSEC, TEMP6 
BNE 43$ 

MOV #MBADSF,R3 
INC LOCERR 
ERRHRD 1301..-ERR1 
TRAP TSERCODE 
.WORD 1301 

.WORD =ERRI1 

CMP #SBSF IL. TEMPS 
BEQ 65% 

BR 378 

ADD #4, DESSEC 
BR 4§ 

MOV aMFMTER, RS 
ERRHRD 1302..-ERR1 
TRAP TSERCODE 
-WORD 1302 

.WORD  ERR1 

BR 39% 

MoV #MTMBS, RZ 
ERRHRD 1303..-ERR1 
TRAP TSERCODE 
.WORD 1303 

.WORD ERR1 

BR 40$ 

MOV #2, ERRSWI 
MoV #1. BSF VAL 
TSTB LOCERR 

BEQ 66$ 

INC ERRCNT 

ENT CSETST 


J 9 


XBASIC READ DATA (BAD SECTOR FILE) 


SEQ 0113 


; INSERT HEAD BIT 
; CLEAR ALL BUT SECTOR 
; INSERT SECTOR NUMBER 
+CHECK IF IBUFF pre 
;NO GET NEXT CYLINDER 
;ELSE TEST IF 1°S DETECTED 
;TO MANY ERRORS - REPORT 
— ae SOFTWARE BAD READ 
Vv a 
-_s CHANGE POINTERS 

MAX SECTOR NUMBER 
‘00 SECTOR NUMBER START 


READ 
+BUMP LOCAL ERROR COUNTER 
+ MOV 1'S INTO FILE STORAGE 
CHECK IF IN ERROR LOOP 


+ YES - GO DO READ 


; CHECK IF ALL SECTORS READ 
>NO - SKIP 

;SET RESULT MESSAGE POINTER 
;BUMP LOCAL ERROR COUNTER 


; TEST IF SOFTWARE FILES CHECKED 
+YES - EXIT 

*ELSE GO CHECK ta FILES 
>BUMP TO NEXT SECTOR 

+GO DO READ 

+ SET RESULT MESSAGE POINTER 


>GO CHECK FOR LOOP 
+ SET RESULT MESSAGE PTR 


;GO CHECK FOR LOOP 

>; INIT ERROR SWITCH 

;SET BAD SECTOR FILES VALID FLAG 
>; TEST IF LOCAL ERRORS 

;NO - SKIP 

>ELSE BUMP ERROR COUNT 


OUTERR 


DZRLCA. 


MACY11 30(1046) 
Pil O4-NOV-77 11: 


032144 
032144 


032356 


012737 
004737 
004737 
004737 
032356 
004737 
005037 
005037 
005037 
004737 
032356 
012701 
004737 
032356 
004737 
032356 
005037 


104002 
004537 
000000 
004737 
032274 
004737 
032274 
004737 
032274 
012737 


104003 
104010 


005237 
000771 


104001 


006307 
017234 
014714 
014732 
017124 
002525 
002514 
032250 
015624 


005670 
020404 


021000 
032250 


021462 
022110 
022150 
021622 
000002 


000010 
032250 
017150 
032250 
022630 


002514 


O4-NOV-77 
1: 51 


002424 


002430 


032250 


.SBTTL XTEST 14 
BGNTST 


T3065: 


T3075: 
BGNSUB 


T3108: 


60S: 
ENDSUB 


L10051: 


10S: 


115: 


135: 


T3065$: 


ENDTST 


L10050: 


13: 30. PAGE 84-29 
aTEST 14 


K 9 


XWRITE/ZREAD DATA (PART 1) 


. 
’ 


sy he ame 


PC, CKBSVD 
PC. TSTINT 
PC, GSTATR 


PC, CHOSHD 
DESSEC 


PC, XSEEK 


#3000..R1 
PC. RDYWAIT 


PC, VERPOS 
T3108 


CS$BSUB 
RS, DATGEN 


0 

PC, XWRITE 
PC, XREAD 
PC, DATCON 
#2, ERRSWI 


— 


7$ 
PC, SWAPHD 


T3108 
Pc, BSCHK 


T306$ 


NEWCYL 
11$ 


CSETST 


aes chliacdinaen DATA (PART 1) 


T14:: 
;SET ERROR HEADER 
;GO CHECK IF BAD SECTOR FILES VALID 
; INITIALIZE TEST 
; CLEAR DRIVE 


GO CHOSE HEAD 

; SECTOR O 
CYLINDER 0 

CLEAR PATTERN SELECT 

POSITION HEADS 


SET WAIT COUNT FOR 300 MS 
; WALT FOR READY 


; VERIFY POSITION 
> CLEAR PATTERN SELECTOR 


T14. 1: 


;GENERATE DATA 
PATTERN SELECT WORD 
;DO WRITE DATA 


+DO READ DATA 
COMPARE DATA 
; INIT ERROR SWITCH 


sEXIT TEST IF ERROR 


;WAS DATA PAT 8 USED? 

YES - SKIP 

+ELSE BUMP TO NEXT PATTERN 

+DO TEST WITH NEW PATTERN 

+GO SWAP TO HEAD 1 OR END TEST 
+ ABORT RETURN 

+SET PATTERN SELECT TO 0 
*CHECK IF SECTOR BAD 

+ YES RETURN - SKIP TO 138 

;NO RETURN - DO TEST THIS SECTOR 
;BUMP TO NEXT CYLINDER 

+CHECK IF THIS ONE BAD 


SEQ 0114 


OUTERR 
DZRLCA 


MACY11. 30( 1046) 
Pil O4-NOV-77 11:51 


032360 
032360 


032610 


012737 
005737 
001003 
005737 
100402 


104032 
000476 
005003 
OO£004 
004737 
004737 
033074 
004537 
000000 
005037 
004737 
013737 
004737 
033074 
012701 
004737 
033074 
004737 
033074 
012701 
012705 
004737 
033074 
011562 
014562 
014562 
014562 


012700 
104027 
005737 
001010 
004737 
012693 


O4-NOV-77 


006332 
002652 


013162 


014714 
014732 


021462 
002526 
017124 
013164 
015624 


005670 
020404 


021u00 
000100 
002454 
022100 
000006 
000004 
000002 
000000 
005670 
002420 


014562 


033074 
002456 


033074 
002454 


002424 


002514 


28: 


1$: 


5S: 


6$: 


4S: 


13:30 PAGE 84-30 
XTEST 15 


.SBTTL TEST 15 
BGNTST + TEST 1 


Ll 9 


KXSPINDLE TIMING TEST 


#P2T1SE, ERHEAD 


PASNUM 


PC. TSTINT 
PC. GSTATR 


RS, DATGEN 


DESSEC 
PC, CHOSHD 


LOL IMW. NEWCYL 


PC, XSEEK 


#3000. .R1 
PC, RDYWAIT 


PC, VERPOS 


” apron TIMING TEST 


T15: : 
; SET x HEADER 
; TEST PASS 0 
[NO - sk KIP 
; TEST IF MANUAL TESTS WERE RUN 


+YES - SKIP 
+ ELSE SKIP TEST 


CLEAR FOR TIMING STORAGE 


+ INITIALIZE TEST 
+ CLEAR DRIVE 


GENERATE DATA 
;PATTERN O 

CLEAR TO SECTOR O 
+GO SELECT HEAD 

+ SET FOR CYLINDER 
D0 SEEK 


+ SET WAIT FOR 300 MS 
;WAIT FOR READY 


+ VERIFY POSITION 


#64.,R1 ;SET LOOP COUNTER 


#L. MP.RS 
PC, XWRITT 


(RS), RLMPCR2) 
~(R5), RLDACR2) 
~(R5),RLBACRZ) 
~(R5),RLCS(R2) 


#3000. 
#3000. .RO 
CSWTU 
DONE 


6% 

PC, WAITIN 
(SP)+,R3 
1501..-ERR1 
TSERCODE 


4 

1502... ERR6 
TSERCODE 
1502 

ERRG 

60$ 
#L.MP.RS 


+ SET A POINTER 
:D0 FIRST WRITE 


+LOAD RL REGISTERS 


> TEST IF INTERRUPT 
YES - SKIP 

ELSE WAIT FOR TIMEOUT 
GET MESSAGE POINTER 


> TEST IF ANY ERRORS 
7NO - SK KiP 


;SET POINTER TO RL LOAD REGS 


SEQ 0115 


OUTERR 
DZRLCA. 


Pil 


MACY11 30(1046) 
O4-NOV-77 


032614 
032620 
032624 
032630 
032634 


033032 


005037 
011562 
014562 
014562 
014562 


012700 
104027 


104052 
005737 
001007 
004737 
012603 


104443 
002737 
011344 
000500 
005737 
100004 


104443 
002740 
011646 


001373 


012746 
012746 
012746 
012746 
010600 
104017 
062706 


005046 
153716 
012746 
013746 
012746 
012746 
012746 
010600 
104017 
062706 


O04-NOV-77 
11: 51 


002420 
000006 
000004 
000002 
000000 


005670 


002420 
014562 


002456 


000006 


006547 
006520 
010421 
000003 


000010 


002445 
005423 
002440 
005412 
010447 
000005 


000014 


13:30 PAGE 84-31 
aTEST 15 


7$: 


8: 


10S: 


XXSPINOLE TIMING TEST 


DONE 

(RS), RLMPCR2) 
-(R5),RLDACRZ) 
~(R5),RLBACR2) 
-(R5),RLCS(R2) 


#3000. 
#3000. . RO 
CS$WTU 


RO 
C$GTIM 
DONE 


7S 

PC, WAITIN 
(SP)+,R3 
1503.,,ERR1 
TSERCODE 
1503 


1504.,,ERR6 
TSERCODE 


#3, - (SP) 
SP, RO 
CSPNTF 


CLEAR INTERRUPT INDICATOR 
LOAD RL REGISTERS FOR 2NO WRITE 


;WAIT FOR INTERRUPT 


+GET TIME WAITED 
TEST IN INTERRUPT OCCURRED 


> YES - SKIP 
;GO WAIT FOR INTERRUPT 
4 SI ae POINTER 


, 


; TEST IN ANY ERROR 
;NO - SKIP 
;REPORT ERRORS 


;ADD IN TIME USED 
DOUBLE PRECISSION 

DEC LOOP COUNTER 

+LOOP UNTIL O 

+SET DIVIDE COUNT 
*CLEAR CARRY FOR DIVIDE 
DIVIDE SUM BY 100(8) 


*DEC DIVIDE COUNT 
+LOOP UNTIL DONE 


$ 
@FMT1. 1, #SRTMES, #VALDES 
#VALDES, -(SP) 
#SRTMES, - (SP) 
@FMT1. 1.-CSP) 


#10. SP 
ES en 
- (SP) 


RLORV+1, (SP) 
#DRVNAM. - (SP) 


RLBAS. -(SP) 


#BASADD. -(SP) 


#FMTS, -(SP) 
#5, - (SP) 
SP.RO 
CSPNTF 


ADD #14, SP 
PRINTF #FNT26. #RESES. R3, RRESEY, HMAPROX, EXROT 


SEQ 0116 

















(12) 033032 
(11) 033036 
(10) 033042 
(9) 033046 
(8) 033050 
(7) 033054 
(6) 033060 
(3) 033064 
(4) 033066 
(4) 033070 
6196 033074 
6197 033102 
(3) 033102 
033102 


OUTERR MACY11 30(1046) 
DZRLOA. Pil O4-NOV-77 11:51 


013746 
012746 
012746 
010346 
012746 
012746 
012746 
010600 
104017 
062706 
012737 


104001 


O4-NOV-77 


002640 
006606 
010177 


010173 


011270 
000006 


000015 


000002 002430 60%: 


ENOTST 
L10052: 


13:30 PAGE 84-32 
KTEST 15 





SPINDLE TIMING TEST 


EXROT, -(SP) 
#MAPROX, - (SP) 
R3.-(SP) 
WRESES, - (SP) 
#FNT26, -(SP) 
#6, = (SP) 


#16, SP 
#2, ERRSWI + INITIALIZE ERROR SWITCH 


CSETST 


ST te Wh sera, eee eee ee ee ee 


SEQ 0117 


OUTERR 


DZRLOA. P11 


MACY11 3001046) 
O4-NOV-77 1 


033234 
033236 
033242 
033244 
033250 
033254 


033364 
033364 


012737 


012705 
012701 


103005 


116503 
042703 
001006 
000137 
022705 
001773 
010503 
020337 
103745 
020337 
101342 
012704 
110364 
110364 
110364 
110364 
110364 
110364 
010437 
004737 


O04-NOV-77 
1: 51 


006362 
017234 
014714 
014732 


002644 
177777 
002652 


000001 
177770 


002322 
000010 
013164 


013166 
013166 
013166 


o0o0co01 
092652 


000007 
000081 


002342 
177400 


034124 
000377 


013164 
013166 


002322 
000001 
000003 
000005 
000007 
000011 
000013 
0024 36 
017124 


002424 


013162 


002326 
002330 
002332 


013162 


1$: 


23: 


731008: 


38: 


4S: 
5S: 


83: 


7310158: 


BGNSUB 


13:30 PAGE 84-33 
TEST 16 © 


.SBTTL TEST 16 
BGNTST 


8 10 
SEWRITE/READ DATA (PART 2) 


SEQ 0118 


SEWRITE/READ DATA (PART 2) 
+ TEST 16 


#P2T16E. ERHEAD 


PC. CKBSVD 
PC, TSTINT 
PC, GSTATR 


PASCNT 
#-1,R5 
PASNUM 


1$ 
+ ess egies 
1 


#-8. RS 


STISTBL.R1 
#10.R3 


LOLIMW, (R1)+ 
R3 


T16: : 
;SET ERROR HEADER 
;GO CHECK IF BAD SECTOR FILES VALID 
; INITIALIZE TEST 
> CLEAR DRIVE 


+ CLEAR PASS TO O 
+SET RS 
+ TEST IF _— PASS (QUICK VERIFY) 


;NO - SKI 

; TEST IF ry ALL CYLINDERS 
;YES - SK 

-ELSE SET 8s TO NEG 8 


GET ADDRESS OF Paes TABLE 
SET CLEAR COUN 

+ CLEAR LOCATIONS TO LO LIMIT 
+DEC COUNT 

LOOP UNTIL O 


2$ rL 
HILIMW, TISTBL4+4 | INSERT HILIMIT 
HILIMW, TI3TBL4+6 ; INTO APPROPRIATE LOCATIONS 


ag aca trigagheign 
#ALLCYL. MISHIW 
5$ 


CYLTBL(RS),R3 


#177400, R3 


R3,HILIMW 
T3100$ 
#TISTBL.RY 
R3,1(R4) 
R3, 3(R4) 
R3,5(R4) 
R3,7(R4) 
RZ, 11(R4) 
R3.13(R4) 
R4, TBLSTR 
PC, CHOSHD 


;BUMP RS 

; TEST IF = ALL CYLINDERS 

;YES - SK 

; TEST IF riRsT PASS (QUICK VERIFY) 
;NO - SKIP 


+ELSE BUMP CYLINDER POINTER BY 7 
+ TEST IF PAST TABLE 
YES - GO TO EXIT 


+GET NEXT TABLE ENTRY 

-CLEAR UPPER BYTE 

+SKIP IF NOT O 

EXIT TEST 

TEST IF ALL CYLINDERS USED 
*YES - EXIT TEST 

;USE RS AS NEXT CYLINDER 
;CHECK IF LOWER THAN LOLIMIT 


+YES - SKIP 
*CHECK IF HIGHER THAN HILIMIT 
+YES - SKIP 


+ GET ADDRESS OF SEEK TABLE 
; INSERT CC IN APPROPRIATE TABLE 
; LOCATIONS FOR TEST SEEK SEQUENCE 


*STORE TABLE ADDRESS 
+GO CHOSE HEAD 


T16. 1: 


¢ 10 
OUTERR MACY11 3011046) O4%-NOV-77 13:30 PAGE 84-34 


DZRLOA. P11 O¥-NOV-77 11:51 STEST 16 SEWRITE/READ DATA (PART 2) SEQ 0119 
(3) 033364 104002 ENT C$B8SUB 
6254 033366 042737 003760 002416 BIC #MQUALS. OPFLAG ; CLEAR 4 MESSAGE QUALIFIERS 
6255 033374 005737 002644 TST PASCNT +; TEST IF PASS O 
6256 033400 001414 BEQ 11$ +YES - SKIP 
6257 033402 023727 002644 000003 ~ CMP PASCNT, #3 ; TEST IF — 3 
6258 033410 001404 BEQ 10$ +YES - SKIP 
6259 033412 002407 BLT 11$ ;CHECK IF LESS THAN 3, IF YES CLEAR TO 0 
6260 033414 012737 O00003 002644 MOV #3, PASCNT ELSE SET TO 3 
6261 033422 052737 000020 002416 10%: BIS ®INOUTS.OPFLAG ;SET MESSAGE QUAL 
6262 033430 000405 BR 12$ + SKIP 
6263 033432 005037 002644 11%: CLR PASCNT SET PASS COUNT TO 0 
6264 033436 052737 OO00040 002416 BIS #OUT INS, OPFLAG ;SET MESSAGE QUAL 
6265 033444 012737 OO0003 002434 125: MOV #3, WRTSHI +SET READ AND WRITE SWITCH 
6266 033452 013704 002436 MOV TBLSTR, RY ;GET STORED TABLE ADDRESS 
6267 033456 005037 002526 158: CLR DESSEC + CLEAR TO SECTOR O 
6268 033462 112437 002514 MOVB (R4) +, NEWCYL GET NEXT TABLE ENTRY 
6269 033466 004737 015624 JSR PC, XSEEK DO SEEK 
6270 033472 034036 605 
6271 033474 012701 005670 MoV #3000. .R1 SET WAIT COUNT FOR 300 MS 
6272 033500 004737 020404 JSR PC, RDYWAIT ;WAIT FOR READY 
6273 033504 034036 608 
6274 033506 112437 002514 MOVB (RY) +, NEWCYL ;GET NEXT TABLE ENTRY 
6275 033512 004737 015624 JSR PC, XSEEK D0 SEEK 
6276 033516 034036 605 
6277 033520 012701 005670 MoV #3000. .R1 ;SET WAIT COUNT FOR 300 MS 
6278 033524 004737 O2C404 JSR PC, RDYWAIT ;WAIT FOR READY 
6279 033530 034036 60S 
6280 033532 004737 021000 JSR PC, VERPOS + VERIFY POSITION 
6281 033536 034036 608 
6282 033540 004737 022630 168: JSR PC, BSCHK CHECK FOR BAD SECTOR 
6283 033544 033676 328 "YES" RETURN 
6284 033546 013737 002526 033566 Mov DESSEC, 258 ;SET DATA PATTERN = TO SECTOR NUMBER 
6285 033554 042737 177770 033566 Bic #177770, 25% /CLEAR ALL BUT LSD 
6286 033562 004537 021462 JSR RS, DATGEN +GO GENERATE DATA 
6287 033566 000000 25S: .WORD O 
6288 033570 032737 000001 002434 BIT #B1TO, WRTSHWI TEST IF WRITE THIS PASS 
6289 033576 001425 BEQ 298 >NO - SKIP 
6290 033600 004737 022110 JSR PC, XWRITE DO WRITE 
6291 033604 034036 60S 
6292 033606 005237 002526 INC DESSEC + INC SECTOR 
6293 033612 022737 000050 002526 CMP #40. . DESSEC ; TEST IF ALL SECTORS USED 
6294 033620 001347 BNE 16% NO - SKIP 
6295 033622 042737 000060 002416 BIC ¢INOUTS !OUTINS, OPFLAG ; CLEAR QUALIFIERS 
6296 033630 042737 000001 002434 BIC #8170. WRTSWI + CLEAR WRITE REQUIRED SWITCH 
6297 033636 052737 000100 002416 BIS SFOLWRT.OPFLAG ;SET FOLLOWING WRITE QUALIFIER 
6298 033644 005037 002526 CLR DESSEC -CLEAR TO SECTOR O 
6299 033650 000733 BR 10$ + SKIP 
6300 033652 032737 000002 002434 29%: BIT aBITS, WRTSH! TEST IF READ THIS PASS 
6301 033660 001414 BEQ 338 ;NO - SKIP 
6302 033662 004737 022150 31S: JSR PC, XREAD ELSE DO READ 
6303 033666 034036 60$ 
6304 033670 004737 021622 JSR PC, DATCOM ; COMPARE DATA 
6305 033674 034036 60$ 
6306 033676 005237 002526 328: INC DESSEC >BUMP SECTOR 
6307 033702 022737 000050 002526 CMP #40. , DESSEC ; TEST IF ALL SECTORS USED 
6308 033710 001313 BNE 16$ *NO - LOOP 


OUTERR 


DZRLOA. P 


ye 30( 1046) 
04-NOV-77 


033712 


034124 


012737 


104003 


104010 
000054 
012737 
023727 
001004 
012737 
000410 
005037 
004737 
033224 
012737 
000137 


104001 


O4-NOV-77 
11: 51 


002526 
002434 
002644 
003760 
002644 
002644 


000002 
002644 


062644 


002000 
000020 
000040 


033456 
000002 


000003 
002644 


002330 


002644 
017150 


002322 
033364 


002416 
000003 


000006 


0024 34 
000001 


500005 


002416 
002416 
002416 
002430 


002434 
000003 


0024 36 


002436 


335: 


ENDSUB 
L10054: 


45S: 


48s: 


731658: 


ENDTST 


L10053: 


13:30 PAGE 84-35 
RTEST 16 


EMT 


D 10 
SEZWRITE/READ DATA (PART 2) 


DESSEC CLEAR DESIRED SECTOR 
WRTSHI ‘CLEAR WRITE/READ SWITCH 
PASCNT ;BUMP PASS COUNT 
#MQUALS. OPFLAG ;CLEAR ALL QUALIFIERS 
PASCNT, #3 + TEST IS PASS 3 

60$ +YES - SKIP 

PASCNT, #6 + TEST IF PASS 6 

60$ +YES - SKIP 
#B1T1,WRTSHWI ;SET READ REQUIRED BIT 
PASCNT. #1 + TEST IF PASS 1 

40S YES - SKIP 

PASCNT, #5 ; TEST IF PASS 4 

40$ YES - SKIP 


398 + SKIP 

#FWDSKO. OPFLAG {SET FWO QUALIFIER 
36% +GO DO NEXT PASS 

# |INOUTS, OPFLAG ; SET QUAL IF IER 


36$ SK 
— +SET MESSAGE QUALIFIER 


15 GO DO NEXT PASS 

#2, ERRSWI > INIT ERROR SWITCH 

CSESUB 

TST EXIT TEST IF ERROR 

CSESCAPE 

L10053-. 

#3, WRTSHI SET FOR READ AND WRITE REQ 

PASCNT, #3 TEST IF PASS 3 

45$ NO - SKIP 

#TISTBL +6, TBLSTR +STORE MIO POINT IN TABLE 
48S 0 START PASS 4 

PASCNT CLEAR TO PASS O 

PC. SWAPHD +GO SWAP TO HEAD 1 OR END TEST 


ABORT RETURN 
@T33TBL.TBLSTR -STORE START OF TABLE 
T31018 +GO DO HEAD 1 


CSETST 


SEQ 0120 


OUTERR 
DZRLOA. 


MACY11 30(1046) 


034126 
034126 
034126 
034132 
034134 
034140 
034142 
034146 
034146 
034146 
034146 
034150 
034156 
034162 
034166 
034170 
034174 
034200 
034204 
034210 


034364 


005737 


000137 


104002 
012737 
004737 
004737 
034770 
005037 
005037 
005037 


034770 


005046 
153716 
012746 
013746 
012746 
012746 
012746 
012746 
012746 
010600 
104017 
062706 
012701 


032737 


O4-NOV-77 13:30 PAGE 84-36 
Pil O4-NOV-77 11:51 RTEST 17 


002652 
013162 
035116 


006405 002424 
014714 
014732 


002524 
002526 
002514 
015624 


005670 
020404 


021000 
O020u00 002464 
021462 
022110 
022150 
021622 


002445 
005423 
002440 
005412 
007040 
007067 
010322 
000007 


000020 
000006 
000062 
014732 
020000 002464 


23: 
33: 


5S. 


SBTTL XTEST 17 
BGNTST 


— 10 
SEWRITE LOCK ERROR AND DATA PROTECTION 
ZEWRITE LOCK ERROR AND DATA PROTECTION 
+ TEST 17 


Ti?: : 
PASNUM ; TEST IF FIRST PASS 
23 ;NO - SKIP 
MISWIW s TEST UF * MANUAL INTERVENTION 
3$ ;YES - SK 
732655 ; EXIT tt 
T17. 1: 

C$B8SUB 
#PZ2TI7E,ERHEAD ;SET ERROR HEADER 
PC, TSTINT > INITIALIZE TEST 
PC, GSTATR ; CLEAR DRIVE 
DESHD ;SET TO HEAD O 
DESSEC ;SET TO SECTOR O 
NEWCYL ; CLEAR TO CYLINDER O 
PC, XSEEK ;D00 SEEK 
#3000..R1 ;SET WAIT FOR 300 MS 
PC, RDYWAIT ;WAIT FOR READY 
PC, VERPOS ; VERIFY POSITION 
#WLSTAT. T. MP ; TEST IF WRITE LOCK SET 
7$ >YES - SKIP 
RS, DATGEN ;GENERATE DATA 

;PATTERN 7 
PC, XWRITE ;WRITE DATA 
PC, XREAD >READ DATA 
PC, DATCOM ; CHECK DATA 


SEQ 0121 


SF MTOP1, SOPROO4, SOPRIA, SBASADD. RLBAS, RORVNAM, <B.RLORV+1> ;REQUEST SET WR 


- (SP) 
RLORV+1, (SP) 
RORVNAM, - (SP) 
RLBAS. -(SP) 
#BASADD, -(SP) 
ROPRIA, - (SP) 
ROPROOY, -(SP) 
#FMTOP1,-(SP) 


#6. -R1 ;SET WAIT COUNT FOR 39 SECONDS 
#50. CALL WAIT 


M 
¢€, GSTATR GET STATUS 
#WLSTAT, T. MP >CHECK IF WRITE LOCK SET 


OUTERR 
DZRLOA. P 


Wee 3011046) 


O4-NOV-77 


11 O4-NOV-77 11:51 


034372 
034374 
034374 
034400 
034404 
034410 
034412 
O34414 
034420 
034422 
034424 
034424 
034426 
034432 
0344 36 
O34442 
O34446 
034452 
034456 
034460 
034462 
034466 
034466 
034470 
034472 
034476 


034622 


001037 


012746 
012746 
012746 
010600 
104017 
062706 
005301 
001352 


005046 
152716 
012746 
012746 
012746 
012746 
012746 
010600 
104017 
062706 


104032 
0004 26 
004537 
000001 
012705 
012715 


014562 
014562 


012700 
104027 
005737 
001012 
005301 
001370 
004737 
012603 


011344 


104032 
000156 
004737 


010167 
010430 
000002 


000006 


002445 
007040 
007143 
006405 
011237 
000005 


000014 


021462 


002446 
000112 
002444 
002000 
003656 


177600 
000454 
002420 
000006 
000004 
000002 
000000 


000001 
002420 


014562 


014762 


7$: 


10S: 


148: 


13:30 PAGE 84-37 
RTEST 17 


F 10 
KXWRITE LOCK ERROR AND DATA PROTECTION 


7$ +YES - SKIP 
@FNT2, @BELL -RING BELL 


#BELL, -(SP) 


Ri te mo a 
5$ ; SK NOT 0 
fFnt23, wP2T17E. sBYPSNn, ROPRIA <B,RLORV+1> > RPT BYPASSED 


RLORV+1. (SP) 
ROPRIA, -(SP) 
#BYPSNM. -(SP) 
#P2T17E,-(SP) 


L10055-. 


RS, DATGEN 


#L.CS,.R5 
RWTDATA, (RS) 
RLORV, (R5) 
#BIT10, (RS)+ 
ROBUFF, (RS)+ 


GENERATE DATA 

;PATTERN 1 

+GET ADDRESS OF L REGS 

+LOAD WRITE COMMAND 

; INSERT DRIVE NUMBER 

/CLEAR FOR DRIVE 4 - 7 SPEC'D 
+LOAD BUS ADDRESS 


(R5)+ -CYL O. HD 0, SECTOR O 
#177600. (R5)+ +128 WORDS 

#300. ,R1 +SET WAIT COUNT FOR 30 MS 
DONE +CLEAR INTERRUPT FLAG 
-(R5),RLMP(RZ2) ;LOAD RL REGS 
~(R5),RLDACRZ) 

~(R5), RLBACRZ) 

~(R5),RLCS(R2) 

#1 

#1,R0 

CSHTU 

DONE >CHECK IF INTERRUPT 
14$ +YES - SKIP 

R1 *DEC WAIT COUNT 

10$ ;LOOP IF NOT O 

Pc, WAITIN >WAIT FOR INTERRUPT 
(SP)+,R3 GET RESULT MESSAGE 
1701.,-ERR1 

TSERCODE 

1701 

ERR1 

SUB 

CSEXIT 

L10056- 

PC, GSTAT >GET STATUS 


SEQ 0122 


OUTERR 
DZRLCA. 


6415 


MACY11 301046) O4%-NOV-77 
Pil O4-NOV-77 11:51 

034626 034770 

034630 032737 O480000 002456 
034636 001005 

034640 012703 007455 

O34644 

O34644 104443 

O34646 003246 

034650 011460 

034652 032737 002000 002464 
034660 001005 

034662 012703 007534 

034666 

O34666 104443 

034670 003250 

034672 011460 

034674 042737 O40000 002456 
034702 042737 002000 002464 
034710 032737 157400 002464 
034716 001004 

034720 032737 036000 002456 
034726 CO1404 

034730 

034730 104443 

034732 003247 

034734 011646 

034736 000414 

O34740 004737 014/32 

034744 034770 

O34746 004537 021462 

034752 000007 

034754 004737 022150 

034760 034770 

034762 004737 021622 

034766 034770 

034770 012737 900002 002430 
034776 

034776 

034776 104003 

035000 012737 000002 9002430 
035006 

035006 005046 

035010 153716 002445 

035014 012746 005423 

035020 013746 002440 

035024 012746 005412 

035030 012746 007040 

035034 012746 007021 

035040 012746 010322 

035044 012746 000007 

035050 010600 

035052 104017 

035054 062706 000020 

035060 012701 000454 

035064 

035064 012700 000001 

035070 104026 


15%: 


185: 


16S: 


17S: 


60S: 
ENDSUB 


L10056: 
T3204S: 


168: 


13:30 PAGE 84-38 
XTEST 17 


G 10 


KZWRITE LOCK ERROR AND DATA PROTECTION 


#ORVERR, T.CS 


1 
AMORERR, RS 
1702. .,ERR3 
TSERCODE 
1702 


ERR3 
#WGESTAT. T. MP 
18$ 
#MWGERR, RZ 
1704. ,,ERR3 
TSERCODE 

1704 

ERR3 

RORVERR,. TCS 
SWGESTAT. T. MP 
#157400, T. MP 


16$ 
#36000. T.cs 
1703. ..ERR6 
TSERCODE 
1703 
ERR6 
60$ 
PC, GSTATR 
R5, DATGEN 
PC, XREAD 
PC, DATCOM 
#2, ERRSWI 


CSESUB 
#2, ERRSWI 


+; TEST IF ANY ERROR SET 

;YES - SKIP 

+ SET RESULT MESSAGE POINTER 
REPORT ERROR NOT SET 


+ TEST IF rm) SET 
> YES 00 SK 
+ SET MESSAGE FOR WGE NOT SET 


> CLEAR DRIVE ERROR BIT 

; CLEAR WGE BIT 

; TEST IF ANY OTHER ERRORS 
+YES - GO REPORT 

; TEST ANY ERRORS IN CS REG 
;NO - SKIP 

;REPORT ERRORS 


;EXIT TEST 
;GET STATUS AND RESET ERROR 


>GO GENERATE DATA 
>PATTERN 7 

*READ DATA 

> COMPRRE DATA 


> INIT ERROR SWITCH 


> INIT ERROR SWITCH 


SFMTOP1, #OPR12, SOPR1A. FBASADD. RLBAS. #ORVNAM, <B. RLDRV+1> 


- (SP) 
RLORV+1, (SP) 
#DRVNAM, -(SP) 
RLBAS,. - (SP) 
#BASADD. - (SP) 
#OPRIA, -(SP) 
#OPR12,-(SP) 
#FMTOP1,-(SP) 


>SET WAIT FOR 30 SEC 


SEQ 0123 


*REQ RESET WRT L 


= 
| 
| 
| 


OUTERR 


DZRLCA. 


6446 
6447 
6448 
b449 
6450 
6451 
6452 
6453 
o4 54 

(3) 

(3) 
6455 


MACY11 30(1046) 
Pil 


035072 
035076 
035100 
035106 
035110 
035112 
035114 
035116 
035116 
035116 
035116 


004737 
035000 
032737 


001403 


005301 
001364 
000731 


104001 


O4-NOV-77 13:30 PAGE 84-39 
aTEST 17 


O4-NOV-77 11:51 


014732 
020000 002464 


732658: 
ENOTST 
L10055: 


H iC 


i 
! 
| 
| 
— 


KKWRITE LOCK ERROR AND DATA PROTECTION SEQ 0124 
PC, GSTATR +GET STATUS 

@WLSTAT, T. MP + CHECK iF WRITE LOCK RESET 

732658 

R1 DEC WAIT COUNT 

16$ +LOOP IF NOT O 

T3204$ ;ELSE REPEAT MESSAGE 

CSETST 


OUTERR 


DOZRLUA. 


MACY11 30(1046) 


Pil 


035120 
035120 
035120 
035126 
035122 
035136 
035142 


O4-NOV-77 13: 


O4-NOV-77 11:51 


012737 
004737 
004737 


110364 


006445 
017234 
014714 
014732 


002644 
177777 
002652 
000001 
177754 
177774 
002322 
000010 
013164 
021462 
013166 
017166 
013166 
013166 
000001 


002652 


000003 


000023 
000051 


002342 
177400 


036226 


000377 


013164 
013166 


002322 
000001 
000007 
000011 


002424 


013162 


002324 
002326 
002332 
002349 


013162 


30 PAGE 84-40 
aTEST 1 


.SBTTL TEST 18 


BGNTST 


1$: 
9S: 


2$ 


T33208: 


33: 
6S: 


1 10 
XXADJACENT CYLINDER INTERFERENCE 
XXADJACENT CYLINDER INTERFERENCE 
+ TEST 18 


T18: : 
#P2TISE.ERHEAD ;SET ERROR HEADER 
PC, CKBSVD ;GO CHECK IF BAD SECTOR FILES VALID 
PC, TSTINT ; INITIALIZE TEST 
PC, GSTATR ; CLEAR DRIVE 
PASCNT ; CLEAR PASS TO 0 
#-1,R5 >SET RS 
PASNUM 


i". or — PASS (QUICK VERIFY) 
N ~ 
TEST IF USE ALL CYLINDERS 
YES - SKIP 
/ELSE SET RS TO NEG 20 


1$ 

RALLCYL, MISWIW 
1$ 

#-20..R5 

9$ 


+ SKIP 
#-4,R5 *ELSE SET FOR NEG 4 
#TISTBL.R1 GET ADDRESS OF ~~ TABLE 
#10,R3 ;SET CLEAR COUNT 


+CLEAR LOCATIONS TO LOLIMIT 
DEC COUNT 
2$ +LOOP UNTIL O 
R5, DATGEN +GO GENERATE DATA 
PATTERN 9 
HILIMW, T33TBL#2 ; INSERT HILIMIT 
HILIMW, T33TBL+4 ; INTO APPROPRIATE LOCATIONS 
HILIMW, TI3TBL+10 
HILIMW, TISTBL+16 


LOLIMW, (R1)+ 
R3 


RS BUMP RS 

@ALLCYL-MISWIW ; TEST IF USE ALL CYLINDERS 

5$ +YES - SKIP 

PASNUM TEST IF FIRST PASS (QUICK VERIFY) 
3$ +NO - SKIP 

#3.R5 4a BUMP CYLINDER POINTER BY 3 
6$ 

#19.,R5 ; BUMP TO NEXT ENTRY 

RS, #41. ;CHECK IF PAST TABLE 

4§ >YES - SKIP TO EXIT 
CYLTBL(RS).R3  ;GET NEXT TABLE ENTRY 

#177400, R3 *CLEAR UPPER BYTE 

8$ *SKIP IF NOT O 

T3265$ -EXIT TEST 

RS + TEST IF RS O 

7$ +NO - SKIP 


RS 
#255. .R5 
43 


RS,R3 
R3,LOL IMW 


7ELSE BUMP RS AGAIN 

TEST IF ALL CYLINDERS USED 
*YES - EXIT TEST 

/USE RS AS NEXT CYLINDER 


*CHECK !F LOWER THAN LOLIMIT 
T3300$ YES - SKIP 
R3,HILIMW +CHECK IF HIGHER THAN HILIMIT 
T33008 YES - SKIP 
#TISTBL.RY GET ADDRESS OF SEEK TABLE 
R3,1(R4) > INSERT CC IN APPROPRIATE TABLE 
R3,7(R4) 
RB, 110R4) 


SEQ 0125 


OUTERR 


DZRLCA. 


Pil 


MACY11 3001046) 
O4-NOV-77 11:51 


035412 


035720 


110364 
005203 
110364 
110364 
162703 
110364 
110364 
010437 
004737 


104002 
042737 
005737 
001414 
023727 
001404 
002407 
012737 


032737 


O4-NOV-77 


000017 


000005 
000015 
000002 
000003 
000013 
0024 36 
017124 


003760 
002644 


002644 
000004 
000020 
002644 
000040 
000003 
002436 
002526 
002514 
015624 


005670 
020404 


002514 
015624 


005670 
020404 


021000 
022630 
000001 
022110 


002526 
000050 


002526 
000002 


002416 


000004 


002644 
002416 


002416 
002434 


0024 34 


002526 
002416 


002434 
002416 


002434 


733015: 


BGNSUB 


10S: 
115: 
128: 
15S: 


16: 


298: 


13:30 PAGE 84-41 
XTEST 18 


J 10 
XXADJACENT CYLINDER INTERFERENCE 


R3,17(R4) 
R3 ;BUMP R3 TO CC+1 
R3,5(R4) ; INSERT AS NEEDED 
RI, 15(R4) 
#2,.R3 ;SET RZ TO CC-1 
R3, ICR4) ; INSERT AS NEEDED 
R3, 13(R4) 
R4, TBLSTR ;STORE TABLE ADDRESS 
PC. CHOSHD ;GO CHOSE HEAD 
T18. 1: 
C$B8SUB 
RMQUALS. OPFLAG ;CLEAR ALL MESSAGE QUALIFIERS 
PASCNT + TEST 1F PASS 0 
11$ YES - SKIP 
PASCNT. #4 : TEST iF -— 4 
10$ : YES - SK 
11$ > CHECK IF Wess THAN 4, IF YES CLEAR TO O 
#4, PASCNT ;ELSE SET TO 4 
#INOUTS. OPFLAG ;SET MESSAGE QUAL 
12$ > SKIP 
PASCNT ;SET PASS COUNT TO 0 
#OUTINS, OPFLAG ;SET MESSAGE QUAL 
#3, WRTSHI ;SET READ AND WRITE SWITCH 
TBLSTR. RY ;GET STORED TABLE ADDRESS 
DESSEC ;CLEAR TO SECTOR O 
(RY) +, NEWCYL ;GET NEXT TABLE ENTRY 
PC, XSEEK :00 SEEK 
#3000. .R1 ;SET WAIT COUNT FOR 300 MS 
PC, RDYWAIT ;WAIT FOR READY 
CR4)+, NEWCYL ;GET NEXT TABLE ENTRY 
PC, XSEEK >DO SEEK 
#3000. .R1 ;SET WAIT COUNT FOR 300 MS 
PC, RDYWAIT ;WAIT FOR READY 
PC, VERPOS ; VERIFY POSITION 
PC, BSCHK >CHECK FOR BAD SECTOR 


+"YES" RETURN 
#B ITO, WRTSWI + TEST IF WRITE THIS PASS 


298 ;NO - SKIP 

PC, XWRITE ;DO WRITE 

DESSEC > INC SECTOR 

#40. . DESSEC ; TEST IF ALL SECTORS USED 
16$ 7NO - SKIP 


#INOUTS!OUTINS. OPFLAG ; CLEAR QUALIFIERS 

#8 1T0. WRTSHI /CLEAR WRITE REQUIRED SWITCH 
SFOLWRT,OPFLAG SET FOLLOWING WRITE QUALIFIER 
DESSEC >CLEAR TO SECTOR 0 


168 > SKIP 
#BIT1i,WRTSHI > TEST IF READ THIS PASS 


: 


OUTERR 
DZRLOA 


MACY11 3001046) 
Pil OW-NOV-77 11°51 


035726 


036226 


001414 
004737 


012737 


104003 


104001 


O4-NOV-77 


022150 
021622 


002526 
000050 


002526 
0024 34 
002644 
003760 
002644 
002644 
002644 
002644 


000001 
002644 


002644 
00c040 
035546 
00002C 
000200 


000400 
000002 


000002 


000003 
002644 


002332 


002644 
017150 


002322 
035454 


002526 


002416 
000004 


000010 
000003 
000007 


002434 
00c001 


000002 
002416 
002416 
002416 


002416 
002434 


002430 


002434 
000004 


0024 36 


002436 


318: 


32: 


335: 


365: 
375: 


398: 


4OS: 
415: 


60S: 
ENOSUB 
L 10060: 


45S: 


48s: 


733658: 


ENDTST 


L 10057: 


13: 30. PAGE 84-42 
XTEST 18 


EMT 


K 10 


SXADJACENT CYLINDER INTERFERENCE 


33% 
PC, XREAD 
PC, DATCON 


DESSEC 
oo 


SHOUALS. OPFLAG 
PASCNT. #4 


60% 
PASCNT, #8 
60% 
PASCNT, #3 
398 
PASCNT, #7 
40$ 


#B 1 TO, WRTSWI 
PASCNT, #1 


375 

PASCNT. #2 

378 

#OUTINS, OPFLAG 
15$ 

# INOUTS. OPFLAG 
36$ 

#REVSKS, OPFLAG 
41 


$ 
#FWOSKS, OPFLAG 
#BIT1,WRTSWI 


36% 
#2, ERRSWI 


CSE SUB 
TST 
CSESCAPE 
L10057-. 
#3, WRTSHI 
PASCNT. #4 


;NO - SKIP 
;ELSE DO READ 
; COMPARE DATA 


+ BUMP SECTOR 

; TEST IF ALL SECTORS USED 

;NO - LOOP 

; CLEAR DESIRED SECTOR 

; CLEAR WRITEZREAD SWITCH 
;BUMP PASS COUNT 

; CLEAR ALL = alle 

; TEST IS —_s 

;YES - SKIP 

+ TEST iF — 8. 


YES - SKIP 
; TEST IF — 3 


YES - SK 
+ TEST IF Pass ? 
YES - SK 


+ SET WRITE P REQUIRED 
TEST IF PASS 1 


+YES - SKIP 
+ TEST IF PASS 2 
YES - SKIP 


SET MESSAGE QUALIFIER 
GO DO NEXT PASS 

;SET MESSAGE QUALIFIER 
+ SET MESSAGE QUALIFIER 


SET MESSAGE QUALIFIER 
SET READ REQUIRED 


> INIT ERROR SWITCH 


EXIT TEST IF ERROR 


+ SET FOR READ AND WRITE REG 
* TEST iF PASS 4 


45$ NO - SKIP 
#T33TBL +10. TBLSTR + STORE MID — IN TABLE 
48$ 


PASCNT 
PC, SWAPHD 


#T33TBL. TBLSTR 
133018 


CSETST 


START PASS 4 
> CLEAR TO PASS 0 
*GO SWAP TO HEAD 1 OR END TEST 
; ABORT PETURN 
STORE START OF TABLE 
GO DO HEAD 1 


SEQ 0127 


EE ee 


OUTERR--MACY11 3001046) 
DZRLOA. Pil 


036230 
036230 
036230 
036236 
036242 
036246 


036512 
036516 


012737 
004737 
004737 
004737 
037334 
005037 
012705 
005737 
001007 
032737 
001003 
012705 
000402 
012705 
012701 
012703 
013721 
005303 
001374 
113737 


110364 


O4-NOV-77 


O4-NOV-77 11:51 


006472 
017234 
014714 
014732 


002644 
177777 
002652 
000001 
177754 
177774 
002322 


000010 
013164 


013166 
013166 
013166 
000u01 
002652 
000023 


000003 
000051 


002342 
177400 


037334 


000377 


013164 
013166 


002322 
000001 
000003 
000005 
000007 
000011 
000013 


13: 30 PAGE 84-43 
xTEST 


002424 


013162 


1$: 
95: 


23: 


002324 
002330 
002334 


013162 


T3400S: 


38: 
6S: 


4S: 


5S. 


7$: 


8s: 


19 
.SBTTL TEST 19 
BGNTST 


L 10 


XKOVERWRITE 


XXOVERWRITE 


+ TEST 19 
#P2T19E, ERHEAD 


PC, CKBSVD 
PC. TSTINT 
PC. GSTATR 


1$ 
#ALLCYL. MISWIW 
1$ 


#-20. ‘ RS 
95 


#-4, RS 
STISTBL.R1 
R3 


#10, 
LOLIMW, (R1)+ 


R3 
2$ 


T19: : 
;SET ERROR HEADER 
;GO CHECK IF BAD SECTOR FILES VALID 
> INITIALIZE TEST 
; CLEAR DRIVE 


‘CLEAR PASS TO 0 
TEST IF FIRST PASS (QUICK VERIFY) 


;NO - SKI 

; TEST IF ry ALL CYLINDERS 
;YES - SK 

+ SET RS TO NEG 20 


;SET FOR NEXT ENTRY 

GET ADDRESS OF WORK TABLE 
+SET CLEAR COUNT 

+ CLEAR LOCATIONS TO LOLIMIT 
DEC COUNT 

+LOOP UNTIL O 


HILIMW, TI3TBL+2 ; INSERT HILIMIT 
HILIMW, T33TBL+6 ; INTO APPROPRIATE LOCATIONS 
HILIMW, TISTBL +12 


RS 
#ALLCYL. MISWIW 
5% 


PASNUM 
3$ 
#19. .R5 
6$ 


#3. RS 
RS. #41. 


4$ 
CYLTBL(R5S),R3 


#177400. R3 
8S 

T3465 

R5 

7$ 

RS 

#255. .R5 
4$ 


RS,R3 
R3,LOLIMW 
T3400$ 
R3.HILIMW 
T3400$ 
#T3STBL.RY 
RZ, 1(R4) 
R3. 3(R4) 
R3,5(R4) 
R3,7(R4) 
R3,110R4) 
RB, 13(R4) 


+BUMP RS 
; TEST 1F ry ALL CYLINDERS 
YES - SKIP 
> TEST IF FIRST PASS (QUICK VERIFY) 
+NO - SKIP 
ELSE BUMP CYLINDER POINTER BY 19 


; SKIP 
: BUMP CYLINDER POINTER BY 3 
; TEST IF PAST VALID TABLE 
+ YES - SKIP 
;GET NEXT TABLE ENTRY 
; CLEAR UPPER BYTE 
;SKIP IF NOT O 
;EXIT TEST 
; TEST IF RS O 
>;NO - SKIP 
;ELSE BUMP RS AGAIN 
; TEST IF ALL CYLINDERS USED 
;YES - EXIT TEST 
;USE RS AS NEXT CYLINDER 
; TEST IF — LO LIMIT 


: YES-- SK 
: TEST IF PAST HILIMIT 
>YES - SKIP 


GET ADDRESS OF SEEK TABLE 
; INSERT CC _ IN APPROPRIATE TABLE 
; LOCATIONS FOR TEST SEEK SEGUENCE 


SEQ 0128 


OUTERR 
DZRLOA 


MACY11 3001046) 
. Pil O4-NOV-77 11:51 


036522 


037030 


010437 
004737 


104002 
042737 
005737 
001414 
023727 
001404 
002407 
012737 
052737 
000405 
005037 
052737 
012737 
013704 
005037 
112437 
004737 
037246 
012701 
004737 
037246 
112437 
004737 
037246 
012701 
004737 
037246 
004737 
037246 
004737 
037062 
005737 


005037 


O4-NOV-77 


002436 
017124 


003760 
002644 


002644 
000003 
000020 
002644 
000040 
o0000c3 
0024 36 
002526 
002514 
015624 


005670 
020404 


002514 
015624 


005670 
020404 


021000 
022630 
002644 
000003 
036752 


000010 
021462 


000001 
022110 


002526 
000050 


000060 
000001 
000100 
002526 


002416 


000003 


002644 
002416 


002416 
002434 


002644 


036752 


002434 


002526 


002416 
002434 
002416 


T34015: 


BGNSUB 


10S: 
115: 
12S: 
15S: 


16S: 


175: 
255. 


13: 30. PAGE 84-44 
aTEST 19 


MOV 
JSR 


mM 10 
XXOVERWRITE 


R4, TBLSTR ; STORE TABLE ADDRESS 
PC, CHOSHD +GO CHOSE HEAD 
T19. 1: 

CS$BSUB 
@MQUALS,. OPFLAG ; CLEAR 4 MESSAGE QUALIFIERS 
PASCNT ; TEST IF PASS O 
11$ YES - SKIP 
PASCNT, #3 TEST 1F PASS 3 

10$ ;YES - SKIP 

11$ ; CHECK IF LESS THAN 3. IF YES CLEAR TO O 
#3, PASCNT ;ELSE SET TO 3 
#INOUTS. OPFLAG -;SET MESSAGE QUAL 

12$ ; SKIP 
PASCNT ;SET PASS COUNT TO 0 
ROUTINS. OPFLAG ;SET MESSAGE QUAL 
#3, WRTSHWI ;SET READ AND WRITE SWITCH 
TBLSTR. RY ;GET STORED TABLE ADDRESS 
DESSEC ;CLEAR TO SECTOR O 

(R4Y) +, NEWCYL ;GET NEXT TABLE ENTRY 
PC, XSEEK ;DO SEEK 
#3000. .R1 ;SET WAIT COUNT FOR 300 MS 
PC, RDYWAIT ;WAIT FOR READY 

(R4Y)+, NEWCYL ;GET NEXT TABLE ENTRY 
PC. XSEEK :DO SEEK 
#3000. .R1 ;SET WAIT COUNT FOR 300 MS 
PC, RDYWAIT ;WAIT FOR READY 
PC, VERPOS ; VERIFY POSITION 
PC, BSCHK ; CHECK FOR BAD SECTOR 

; >"YES" RETURN 
PASCNT ; TEST IF PASS O 

17% > YES - SKIP 
#3, PASCNT ; TEST IF PASS 3 

7% 4 >YES - SKIP 
= 7 ;ELSE CLEAR DATA PATTERN SELECTOR 
1 
#8. .25$ ;SET DATA PATTERN SELECTOR TO 8 
RS, DATGEN ;GO GENERATE DATA 
#8170. WRTSWI ; TEST IF WRITE THIS PASS 
233 ;NO - SKIP 
PC, XWRITE 7DO WRITE 


DESSEC > INC SECTOR 
#40. . DESSEC ; TEST IF ALL SECTORS USED 
16$ ; - SKIP 


#INOUTS!OUTINS. OPFLAG ; CLEAR QUALIFIERS 

#8170, WRTSHI CLEAR WRITE REQUIRED SWITCH 
#FOLWRT.OPFLAG ;SET FOLLOWING WRITE QUALIFIER 
DESSEC CLEAR TO SECTOR O 


SEQ 0129 


N 10 =~ 
OUTERR MACY11 30(1046) O4-NOV-77 13:30 PAGE 84-45 
DZRLOA. P11 O4-NOV-77 11:51 XTEST 19 XXOVERWR ITE SEQ 0130 


6725 037034 000724 BR 16$ + SKIP 

6726 037036 032737 000002 002434 29%: BIT #B1T1,WRTSHI ; TEST IF READ THIS PASS 
6727 037044 001414 BEQ NO - SKIP 

6728 037046 004737 022150 314: JSR PC, XREAD ; ELSE DO READ 

6729 037052 037246 60$ 

6730 037054 004737 021622 JSR PC, DATCOM ; COMPARE DATA 

6731 037060 037246 605 

6732 037062 005237 002526 32S: INC DESSEC +BUMP SECTOR 

6733 037066 022737 000050 002526 CMP #40. , DESSEC + TEST IF ALL SECTORS USED 
6734 037074 001304 BNE 16$ +NO - LOOP 

6735 037076 005037 002526 335: CLR DESSEC +CLEAR DESIRED SECTOR 
6736 037102 005037 002434 CLR WRTSHI + CLEAR WRITE/READ SWITCH 
6737 037106 O0&237 002644 INC PASCNT +BUMP PASS COUNT 

6738 037112 042737 003760 002416 BIC #MQUALS. OPFLAG ;CLEAR ALL QUALIFIERS 
6739 037120 023727 002644 000003 CMP PASCNT, #3 TEST 1S PASS 3 

6740 037126 001447 BEQ 60% YES - SKIP 

6741 037130 023727 002644 000006 CMP PASCNT, #6 + TEST IF PASS 6 

6742 037136 001443 BEQ 605 YES - SKIP 

6743 037140 023727 002644 000001 CMP PASCNT, #1 + TEST IF PASS ¢ 

6744 037146 001424 BEQ 39% YES - SKIP 

6745 037150 023727 002644 0006004 CMP PASCNT, #4 + TEST IF PASS 4 

6746 037156 001424 BEQ 40$ YES - SKIP 

6747 037160 012737 000002 002434 MOV #B1T1,WRTSHI +SET WRITE REQUIRED BIT 
6748 037166 023727 002644 000002 CMP PASCNT, #2 TEST IF PASS 2 

6749 037174 001405 BEQ 37% 7YES - SKIP 

6750 037176 052737 001000 002416 BIS #REVSKO, OPFLAG ;SET REVERSE QUALIFIER 
6751 037204 000137 03624 36S: JMP 15% +GO DO NEXT PASS 

6752 037210 052737 002000 002416 37%: BIS #FWOSKO. OPFLAG ;SET FWD QUALIFIER 
6753 037216 000772 BR 36$ +GO DO NEXT PASS 

6754 037220 052737 000020 002416 39%: BIS ®iINOUTS. OPFLAG ;SET QUALIFIER 

6755 037226 000403 BR 41$ 


> SKIP 
6756 037230 052737 OO00040 002416 40S: BIS #OUTINS. OPFLAG ;SET MESSAGE QUALIFIER 
6757 037236 012737 O00001 OO2434 415: MOV #8170. WRTSWI ;SET WRITE REQUIRED BIT 


6758 037244 000757 BR 36$ +GO DO NEXT PASS 
6759 037246 012737 000002 002430 60%: MOV #2, ERRSWI > INIT ERROR SWITCH 
6760 037254 ENOSUB 
(3) 037254 * £10062: 
(3) 037254 104003 ENT CSESUB 
6761 037256 ESCAPE TST EXIT TEST IF ERROR 
(3) 037256 104010 EMT CSESCAPE 
(3) 037260 000054 .WORD 110061- 
6762 037262 012737 O00003 002434 MoV #3, WRTSHI +SET FOR READ AND WRITE REQ 
6763 037270 023727 002644 9000003 CMP PASCNT, #3 * TEST IF Fae 3 
6764 037276 001004 BNE 45% NO - SK 
6765 037300 012737 002330 002436 MoV ST33TBL+6, TELSTR + STORE AID POINT IN TABLE 
6766 037306 000410 BR 4d$ ;GO START PASS 4 
6767 037310 005037 002644 45S: CLR PASCNT +CLEAR TO PASS 0 
6768 037314 004737 017150 JSR PC, SWAPHD GO SWAP TO HEAD ONE OR ABORT TEST 
6769 037320 036356 T34008 + ABORT PETURN 
6770 037322 012737 002322 002436 MoV ST33TBL.TBLSTR ;STORE START OF TABLE 
6771 037330 000137 036532 48S: JMP T3401 *GO DO HEAD 1 
6772 037334 T3465S: 
6773 037334 ENDTST 
(3) 037334 L 10061: 
(3) 037334 104001 EMT CSETST 


6774 037336 ENOMOD 






























MACY11 30(1046) 
12 11-OCT-77 14: 51 


037336 


037410 
037412 
037412 


037412 
037420 
037426 
037434 
037435 
037442 
037446 
037454 
037461 


037462 
037462 
037462 


037464 
037464 


037474 





000025 


004130 
037454 
000001 


000031 
037412 
160000 
177776 


001031 
037426 
000000 
000776 


002032 


000007 


052502 
051104 
042526 

000 


102 
042526 
051104 
046122 


037462 


000061 


000130 
037626 
000001 


000130 
037650 


04-NOV-77 


020123 
051505 
052103 


020122 
000114 
053111 
030461 





042101 
000123 
051117 


042514 


000105 
000 


13:30 PAGE 85 


RTEST 19 





8 11 
STOVERWRITE 






SEQ 0131 








BGNMOD HROPRM 
BGNHRD 


WORD re we 
GPRML CNTYPE, CNT, 1, YES 
WORD SCO 
























-WORD  CNTYPE 
.WORD 1 
GPRMA CSRMSG. CSR. 0, 160000. 177776. YES 
.WORD TSCODE 
.WORD CSRMSG 
.WORD TSLOLIN 
.WORD TSHILIN 
GPRMA VECMSG, VECT. 0,0. 776. YES 
.WORD TSCODE 
. WORD VECHSG 
.WORD TSLOLIN 
WORD TSHILIM 
GPRMD BRMSG. PRIOR, 0. 340.0, 7, YES 
.WORD TSCODE 
WORD BRNSG 
-WORD 340 
.WORD TSLOLIM 
.WORD TSHILINM 
GPRMD ORMSG. ORSB. 0, 3400.0. 7, YES 
.WORD TSCODE 
.WORD ORNMSG 
-WORD 3400 
.WORD TSLOLIM 
.WORD = TSHILIM 
ENDHRD 
. EVEN 
L10063: 


CSRMSG: . ASCIZ 
VECMSG: . ASCIZ 
BRMNSG: .ASCIZ 
ORMSG: .ASCIZ 


CNTYPE: . ASCIZ 
ENDMOD 
. EVEN 


BGNMOD SFTPRN 
BGNSFT 


7BUS ADDRESS/ 
ZVECTOR/Z 
7BR LEVEL/ 


JOR IVE 
ZRLI1Z 


. WORD L10064-LSSOFT/2 
GPRML = CYLQ.MISWI.1, YES 
WORD 


WORD 


TSCOE 
ae 


WORD 
GPRML Seca, m1 Shi. 2, YES 


. WORD 


TSCODE 
SECQ 


C ii 
OUTERR MACY11 3011046) O4%-NOV-77 13:30 PAGE 85-1 


DZRLOA. PTZ 11-OCT-77 14: 51 aTEST 19 SZOVERWRITE SEQ 0132 
(4) 637476 000002 .WORD 2 
6805 037500 GPRML MANU. MISWI, 100000. YES 
(4) 037500 000130 .WORD TSCODE 
(4) 037502 037670 .WORD MANO 
ame 037504 100000 .WORD 100000 
6808 037506 GPRML LOLIMQ.MISWI, 40000. YES 
(4) 037506 000130 .WORD TSCODE 
(4) 037510 037732 .WORD LOLIM@ 
(4) 037512 040000 .WORD 40000 
6809 037514 XFERF 1% 
(5) 037514 006044 .WORD TSCODE 
6810 037516 GPRND LIMVAL-LOLIN.D, 255. .0,253.. YES 
(4) 037516 001052 .WORD TSCODE 
(4) 037520 037753 ~WORD = LIMVAL 
(4) 037522 000377 .WORD 255. 
(4) 037524 000000 .WORD TSLOLIM 
(4) 037526 000375 .WORD TSHILIM 
6811 037530 1$: GPRML = HILIMQ,.MISWI, 20000. YES 
(4) 037530 000120 .WORD TSCODE 
(4) 037532 037767 .WORD  HILIMQ 
(4) 037534 020000 .WORD 20000 
6812 037536 XFERF 2% 
(5) 037536 006044 _WORD TSCODE 
6813 037540 GPRMD = =LIMVAL, HILIM,.D. 255. ,0,255.. YES 
(4) 037540 002052 .WORD TSCODE 
(4) 037542 037753 ~WORD  =LIMVAL 
(4) 037544 000377 .WORD 255. 
(4) 037546 000000 .WORD TSLOLIM 
(4) 037550 000377 .WORD TSHILIM 
6814 037552 2%: GPRML HEADQ, MISWI. 10000. YES 
(4) 037552 000130 .WORD TSCODE 
(4) 037554 040010 .WORD HEADQ 
(4) 037556 010000 .WORD 10000 
6815 037560 XFERF 39 
(5) 037560 006044 .WORD TSCODE 
6816 037562 GPRMD HEADV. HEAD, 0, 17,0,1, YES 
(4) 037562 003052 .WORD TSCODE 
(4) 037564 040035 .WORD HEADY 
(4) 037566 000017 .WORD 17 
(4) 037570 000000 .WORD TSLOLIN 
(4) 037572 000001 .WORD TSHILIM 
6818 037574 38: GPRND  =ERLING, ERLIM. DO. 377,0. 377, YES 
(4) 037574 004052 .WORD TSCODE 
(4) 037576 O40066 .WORD ERLINMG 
(4) 037600 377 .WORD 377 
(4) 037602 000000 .WORD TSLOLIM 
(4) 037604 000377 .WORD TSHILIM 
6820 037606 GPRMD OCLINQ, OCLIM. D0. 377.1, 377. YES 
(4) 037606 005052 .WORD TSCODE 
(4) 037610 040144 WORD OCLIMQ 
(4) 037612 000377 WORD 37 
(4) 037614 000001 .WORD  TSLOLIM 
(4) 037616 000377 WORD TSHILINM 
6822 037620 GPRML AUTOQ, MISHI, 20, YES 


(4) 037620 000130 .WORD TSCODE 


OUTERR 
DZRLOA 


6839 


6841 


6842 


6844 


6846 
6847 
6848 

(2) 


MACY11 3011046) 
11-OCT-77 


.PT2 
037622 
037624 
037626 
037626 


037626 
037634 


040176 
040176 


040112 
000020 


051525 
020114 


040176 


i 


020105 


046101 
050120 


042503 
051117 


041505 
051105 
044514 


050117 
042526 
047516 
047520 


040524 
040520 
051122 
046511 


046101 
044514 
000123 
046101 
052103 


052125 
052516 
052116 
052116 
042524 


020122 


051105 
042525 


051105 
020113 
000124 
047117 
042516 
040506 


044503 
051125 
024040 
030440 


O43111 
047522 
044515 


042040 
044440 
051040 
051516 


041440 
042522 
051117 
052111 


ENOSFT 


L10064: — 
ASCI2Z 


CYLQ: 


SECQ: 


MANQ: 


LOL I MQ: 


LIMVAL: 


HILIMQ: 


HEADQ: 


HEADY: 


ERLIMQ: 


AUTOQ: 


DCL IMQ: 


ENDMOD 
LASTAD 


O4-NOV-77 13:30 PAGE 85-2 
4: 51 aTEST 19 


. WORD 
. WORD 


EVEN 


. ASCIZ 


. ASCIZ 


.ASCI2 
ASCIZ 
ASCIZ 


 ASCIZ 


-ASCIZ 


- ASCIZ 


 ASCIZ 


. ASCIZ 


. EVEN 


_ EVEN 


D 11 
SZOVERWRITE 


AUTOQ 
20 


7USE ALL CYLINDERS/ 
USE ALL SECTORS/ 


ZEXECUTE MANUAL INTERVENTION TESTS/ 


/LOWER SEEK LIMIT/ 
7ENTER VALUE/ 
7UPPER SEEK LIMIT/ 


7USE ONLY ONE SURFACE/ 


/SPECIFY SURFACE (0 OR 1)/ 


/SPECIFY ERROR LIMIT/ 


/DROP DRIVE IF NO RESPONSE/ 


7DATA COMPARE ERROR LIMIT/ 


SEQ 0133 













E 11 
POP-11 DIAGNOSTIC SUPERVISOR MACY11 30(1086) O4-NOV-77 13:30 PAGE 86 
DZRLOA. SUP 11-OCT-77 15:40 aTEST 19 SZOVERWRITE SEQ 0134 


6849 _ TITLE POP-11 DIAGNOSTIC SUPERVISOR 
18145 071076 END. SUPV=. +2 

18147 071776 . 271776 

18148 071776 0O00000 .WORD O 

18150 72000 X1X1=. 


18151 000ze1 





— 


Fit 
OUTERR MACY11 30(1046) O4-NOV-77 13:30 PAGE 87 


DZRLOR. SUP 11-OCT-77 15:40 SYMBOL TABLE SEQ 0135 
ABOFLA O40450 G BLOCK 063250 CROYMS= 000200 CSPNTS= 000016 OSPCOD 013176 G | 
ABOPAS 040362 G BRMSG 037435 CRLF 057626 CSPNTX= 000015 DUNIT. 040366 G 
ABO. FM 043324 BSCHK 022630 CSNAM 005523 CSPOIN= 000040 OVC. FT 053532 
AFMIO 002622 BSFLAG 002432 CSR = 000000 C$Q10 = 000377 DSAAG 054402 
AFMIDU 002624 BSFVAL 002664 CSRMSG 037412 C$ROBU= 000007 DSAAH 054420 
ALLCYL= 000001 BSNSTR 007232 CURCYL 002516 CSREFG= 000050 DSAA! 057172 
ALLOC 061114 BYPSNM 007143 CURR.T 040376 G CSREQT= 000045 DSAARJ 057176 
ALLSEC= 000002 BSAAB 047516 CYLQ 037626 CSRESE= 000033 DSAAK 057214 
ANYERR= 100000 BSAAF 047430 CYLTBL 002342 C$REVI= 000001 OSAAL 057232 
ARMID 002626 CAFOT 010300 CYLUP = 000004 C$RPT = 000025 DSAAM 057242 
ARMIDU 002630 CALLPC= 000022 CYLWO 007130 CSSEFG= 000047 EF. CON= 000036 G 
AUTOQ 040112 CALLPS= 000024 C$ARD 052732 CS$SPRi= OO0041 EF. NEW= OO0035 G 
AUTOSZ= 000020 CALLSP= 000026 CSARE 052744 CS$SVEC= 000037 EF. PWR= OOO034 G 
ASAAW 8045234 CALLTC= 000030 CSAAK 053562 CSTPRI= 000013 EF. RES= 000037 G 
ASARX 045250 CAL.CL 065632 CSAAL 053672 CSUNBU= 000031 EF. STA= OOOO4O G 
ASAAY 045256 CAL. T! 065670 G CSABRT= 000021 CSWTM = 000026 £EFO1 = 000001 G 
ASAAZ 045272 CAMSK = 077600 CS$ADR = 000020 C$WTU = 000027 EFO2 = 000002 G 
ASABA 045302 CCYLUP 010267 C$AU = 000054 C10MS 010246 EFO3 = 000003 G 
BROADD= 004000 CHKLUP 047532 CS$BRK = 000022 CSSEC 010312 EFO4 = 000004 G 
BAMSK = 000060 CHKSTR 061456 C$BSEG= 000004 CSOOMS 010261 EFOS = 000005 G 
BANAM 005530 CHKTTY 0657544 C$BSUB= 000002 DANAN 005535 EFO6 = 000006 G 
BASADD 005412 CHK.FO 041742 CSBUFF= 000030 DATACM= 000001 EFO7 = 000007 G 
BELL 010167 CHK. MA 045672 CSCEFG= 000046 DATCOM 021622 EFO8 = 000010 G 
BGN. SU= 040176 CHK.PC 052760 C$CLEA= 000012 DATGEN 021462 EFO9 = 000011 G 
BHSTAT= 000010 CHK. SH 041464 CS$CLP1= 000006 DCKERR= 004000 EF10 = 000012 G 
BINMSG 057424 CHOSHD 017124 CS$CVEC= 000036 DCLIM = 000012 EF11 = 000013 G 
BiTO = 000001 G CHRCNT 060776 CSOCLN= O00044 DCLIMG O40144 EFi2 = 000014 G 
BITOO = 000001 G CH. FLA 045374 C$D0DU= 000053 DCLIMW 013174 EF13 = 000015 G 
BiITO1 = 000002 G CH. PAS 045416 CSORPT= 000024 DECMSG 057440 EF14% = 000016 G 
B1TOZ2 = OOO004 G CKBSVD 017234 c$0U = 000055 DESDIF 002520 EF15 = 000017 G 
BITO3 = 000010 G CKDATA= 000102 CSEDIT= 000006 DESHD 002524 EF16é = 000020 G 
B1TOY = 000020 G CKERLM 014370 CSERDF= 000002 DESSEC 002526 EMT. TR O4O4S4 G 
BITOS = OOO0040 G CLEAR. 047014 CSERHR= 000003 DESSGN 002522 END. OF 047002 
BiTO& = 000100 G CLKACC 040360 G CSERSF= 000001 DIAG. T O40456 G END. SU= 071076 
B1TO7 = 000200 G CLKBFR 065634 CSERSO= 000004 DIFAUG 002510 EOP. CH 067554 G 
BiTO8 = 000400 G CLKCNT 040356 G CS$ESCA= 000010 DIFWO 007104 EOP. FM 043340 
BITO9 = 001000 G CLKRES 067232 G CSESEG= 000005 DIRBIT= OOO004 EOP. IN 045412 
BIT1 = 000002 G CLKSER 067532 G CSESUB= 000003 DIRMSK= 077600 ERHEAD 002424 
B1T10 = 002000 G CLKSON 040422 G CSETST= 000001 DLTERR= 010000 ERLIM = 000010 
BiT11 = OO4000 G CLK.SE 045474 CSEXIT= 000032 DONE 002420 ERLIMG@ O40066 
BIT12 = 010000 G CLNCOD 014200 G CSGMAN= 000043 DPOVD 070242 G ERLIMW 013172 
BiTi3 = 020000 G CLRPAR 024230 CSGPHR= 000042 DPMUL 070130 G ERRCNT 002650 
BiT14 = 040000 G CLR. MA 045750 CS$GPRIi= 000040 DROYMS= O00001 ERRFOR 053750 
BiT1S5 = 100000 G NT = Q00010 C$GTIM= 000052 DRMSG 037446 ERRHAN 052764 
BITZ2 = OO0004 G CNTYPE 037454 CSINIT= 000011 DRSB = Q00006 ERRSWI 002430 
BIT3 = 000010 G CNVT 063710 CSINLP= 000020 DRSELT= 000004 ERRVEC 002642 
BiITY = 000020 G COMMTA 063530 C$KWOr= 000035 DRSET = 000010 ERR. HR 053542 
BITS = 000040 G COMPOP= 007777 CSKWON= 000034 DRVCNT 002506 ERR. SF 053546 
BiTé = 000100 G CONHNG= 000004 C$L00P= 000100 DPVERR= 040000 ERR1 011344 G 
BIT? = 000200 G CONTCL 067312 G CSMANI= 000051 DRvNAMN 005423 ERRIFO 054034 
BITS = 000400 G CONTIN 013414 C$MSG = 000023 DRYVNAV 005430 ERR10 012734 G 
BIT9 = 001000 G COSTAT= 000040 CSPNTB= 000014 DSESTA= 000400 ERR2 011412 G 
BLO. HW 046114 COUNT 002646 CSPNTF= 000017 DSMSK = 001400 ERRS 011460 G 
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OZRLOA. SUP 11-OCT-77 15:40 SYMBOL TABLE SEQ 0136 | 
ERRY 011526 G FRAWOD 007135 GSRADL= 000120 INITIA 057454 LPT. RE 045010 

ERRS 011576 G FWOSKO= 002000 GSRADO= 000020 INIT.M 046016 LS!.RE 045004 

ERRG6 011646 G FWOSKS= 000400 GSRADT= 000100 INIT.R 040212 G LUP 065536 

ERR? 012524 G FSAU = 000015 GSXFER= 000004 INOUTS= Q0002C LUP.AD 052762 
ERRS 012574 G FSBGN = 000040 G$YES = 000010 INPUTA 060402 LS$AUT 002070 G 
ERRO 012670 G FSCLEA= 000007 HADONE 002422 INTEBL= 000120 LS$CCP 002044 G 

Esc. PC 052756 FSOU = 000016 HCESTA= 040000 ~ INTFOR 053700 LSCLEA 014200 G 

EXACYL 002636 FSEND = 000041 HCORED 045156 INTHLR 014332 G LSOEPO 002011 G 

EXHCYL 002634 FSHARD= 000004 HCOREQ 045036 INVAL. 045124 LSDEVP 002052 G 

EXOCYL 002632 FSHY = 000013 HCORET 040410 G INVINT 053572 LS$OI1SP 013200 G | 
EXROT 002640 FSINIT= 000006 HCRCER= 004000 INV. SH 041420 LSOR 002102 G 

FBSFIL 003062 FSJMP = 000050 HOAL !1G= 000010 IN. SUF 046766 LSORCT 002062 G | 
FILL 060274 FSMOD = 000000 HOCYL = 077600 1$AU = 000041 LSORS 002064 G 
FILL.C 000204 G FSMSG = 000011 HOHSEL= 000100 ISCLN = 000041 LSORST 002102 G 
FLAGS 040420 G FSPWR = 000017 HOMOVF 006762 1$0U = O00041 LSOTP 002040 G 

FLAGTA 063446 FSRPT = 000012 HORCMP= 000002 ISHRD = 000041 L$0U 014320 G 

FLAG. | 045460 FSSEG = 000003 HOR4YO = 100000 ISINIT= OOO041 L$OUT 002072 G 

FLA. SE 063414 FSSOFT= 000005 HOSEC = 000077 1$MOD = 000041 LSOVTY 002104 G 

FLG. MA 045420 FSSRV = 000010 “HDSEL = 000020 ISMSG = 000041 LSEF 002024 G 

FMTOP1 010322 FS$SUB = 000002 HOWD 007117 ISPWR = 000041 LSEXP1 002032 G 

FMTOP2 010351 FS$SW = O00014 HOWRO1 002464 iSRPT = 000041 LSEXP2 002034 G 

FMTOP3 010373 FSTEST= 000001 HOWRDZ2 002466 ISSEG = 000041 LSEXP3 002036 G 

FMT1 010414 GARBAG 061000 HOWRD3 002470 ISSFT = 000041 LSHARD 037340 G 

FMT1.1 010421 GETCHR 057504 HEAD = 000006 ISSRV = 000041 LSHPCP 002046 G 

FMT11 10640 GETCMN 063070 HEADLM= 010000 I$SUB = 000041 LSHPTP 002056 G 

FMT12 010646 CETPAR 054562 HEADQ 040010 ISTST = 000041 LSHW 013146 G 

FMT13) 010654 GeTPOS 020652 HEADY 040035 JSJMP = 060167 LSICP 002042 G 

FMT14 010720 GETSTA= 000003 HEADW 013170 KBPTR 040230 G LSINIT 013246 G 

FMT15 010752 GETSW! 062064 HERTZ. 044776 KBUF 040232 G LSLADP 002076 G 

FMT16 011006 GET. TH 061634 HF IN 002602 LABACF 006732 LSLAST 040176 G 

FMT17 ©=©011017 GLBDAT 002112 G HF INU 002604 LABACR 006746 LSMREV 002012 G 

FNTiI8 = =011041 GLBEQA 002112 G HFOUT 002606 LABEXP 006641 LSNAME 002000 G 

FMT19 §©011073 GLBERR 011344 G HFOUTU 002610 LABHCF 006702 LSREPP 002054 G 

FMT2 010430 GLBSUB 014324 G HICYL = 020000 LABHCR 006716 LSREV 002010 G 

FMTZ20 011130 GLBTXT OO04534 G HILIM = QO0004 LABIN 06616 LS$SOFT 037464 G 

FMT21 011160 GSTAT 014762 HILIMQ 037767 LABMID 006624 L$SPC } =©002030 G 

FMT22 011203 GSTATC O14746 HILIMW 013166 LABOCF 006652 LSSPCP 002050 G | 
FMT23 =©011237 GSTATG 014772 HNFERR= 010000 LABOCR 006666 LSSPTP 002060 G 

FMT24 011253 GSTATR 014732 HOLOSP= 000020 LABOUT 006633 L$STA 002066 G 
FMT2S 011260 GTSTAT= 000104 HOSTAT= 000020 LAB1 005547 L$SW 013162 G 

FMT26 4 =©011270 GSEXCP= 000400 HPTCOD 013144 G LAB2 005562 L$TIML 002022 G 

FMT27 011314 GSH!IL!= 000002 HROPRM 037336 G LIMVAL 037753 L$TIMU 002020 G 

FMT28 011333 GS$LOL!= 000001 HROWTS 024260 G LINE.F O40452 G L$TIM1 002016 G 

FMT3 010433 G$NO = 000000 HR IN 002612 LOAD.F O45414 L$TST! 002074 G 

FMTY 0104 36 GSOFFS= 000400 HRINU 002614 LOCERR 002656 LSUNIT 002014 G 

FNTS 010447 GSOFS!= 000376 HROUT 002616 LOCYL = 040000 L. BA 002450 

FMNT6 010467 GSPRMA= 000001 HROUTU 002620 LOGMSG 057446 L.CLK. O44762 

FMT? 010531 GSPRND= 000002 HSMSK = 000100 LOLIM = Q00002 L. cs 002446 

FNTS 010601 GSPRML= 000000 HSSTAT= 000100 LOLIMQ 037732 L. OA 002452 | 
FNT9 010633 GSRADA= 000140 HSARB = 064236 LOLIMW 013164 L. MP 002454 

FOLWRT= 000100 GSRADB= 000000 BUFF 003256 LPBFR 040226 G L10000 011410 | 
FORM. T O54044 GSRADD= 000040 ININIT O40400 G LPCNTR Q40224 G L10001 011456 

FREE 061352 GSRADF= 000200 INITCO 013246 G LPT. AD 045014 110002 011524 | 
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OUTERR MACY11 30(1046) O4%-NOV-77 
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L10003 011574 MANQ 037670 
L10004 011644 MAN. Ti 042504 
110005 012522 MAPROX 006606 
110006 012572 MAP16é § =©070500 
110007 012666 MASK.B 047530 
L10010 012732 MASK.W 047526 
£10011 013142 MBADAD 005252 
L10012 013160 MBADSF 005273 
L10013 013176 MBSETO= 000001 
L10014 014176 MCERR 007344 
L10015 014316 MCONHN 005705 
L10016 014322 MCYLOC 007724 
£10017 014366 MCYLUP 004774 
L10020 024600 MDATCP 004636 
L10021 024544 MOCRC 007366 
L10022 025070 MOHEOR 002000 
L10023 025034 MOLT 007413 
L10024 025302 MORDY 007333 
110025 025264 MORERR 007455 
L10026 025512 MORRES 005622 
110027 025510 MORVST G07503 
L10030 025722 MDSERR (007466 
L10031 025720 MEM. Si 045024 
L10032 026146 MERRS 010160 
L10033 026144 MEXERS 010115 
L10034 026346 MFLERR 007656 
L10035 026330 MrMTER 005323 
L10036 026574 MFOLWR 005050 
L10037 026572 MFWOSK 005127 
L1004%0 027070 MFWSKO 005162 
L10041 027020 MGTSTA 004622 
L10042 027366 MHCERR 007567 
L1004%3 027330 MHCRC 007356 
L10044 027664 MHDERR 007641 
L10045 027632 MHORCP O0466! 
L1004%6 031432 MHFCRC 007425 
L1004%7 032142 MHNF 007377 
L10050 32356 MINOUT 005025 
L10051 032302 MIN. IN) 040176 
L10052 033102 MIN. US 040200 
L10053 034124 MISWI = 000000 
L10054 034044 MISHI- 013162 
L10055 035116 MITEST= 100000 
L10056 034776 MNDRST 007731 
L10057 036226 MNEERR 007704 
L10060 036146 MNOCLR 005731 
L10061 037334 MNOINT 005652 
L10062 037254 MOOR 070042 
L10063 037412 MOPER 004733 
L10064 037626 MOPERR 007622 
MAJ. IN 040202 G MORECE 002426 
MAJ.LO 065636 MOUTIN 005094 
MAJ. US 040204 G MPNAM 005542 


a 


ao 


MQUALS= 003760 
MREAD 


OLOCYL 002512 
ONSWAP 017210 


OPFLAG 


wv 

wo 

oO 

i) 
ee 


002416 
0 


000100 
000140 
000200 
000240 
000300 


Aanoannnn 


RESTBL 


000340 G 
0 


006472 
021120 
000114 
000110 
000116 
016664 
020404 
014530 


065640 G 
070464 G 
070450 G 


040000 
045376 
045370 
010173 
010177 
010204 
010211 
002474 
013404 
002164 


SEQ 0137 | 


OUTERR MACY11 30(1046) 


DZRLCOA. SUP 


REVSKO= 


001000 
000200 
041566 
000002 
002440 
000000 
000000 
000004 
002444 
000006 
002442 
020000 


023000 . 


023774 
023566 
067724 


045372 
045312 


a 


ooo oa 


O4-NOV-77 
11-OCT-77 15:46 


ST. SET 
SUBSTK 
SUNIT. 

SUPERV 
SUPFLA 
SUPV. T 
SUP. PR 
SVCBGL= 
SVCCNT= 
SVCGBL= 


TYPNUM 


13:30 PAGE 87-3 
SYMBOL TABLE 


041636 
002250 
045400 
043356 
040364 
040542 
041410 
000001 
177777 
177777 
047710 
000000 
177777 
000001 
000000 
000001 
017150 
045216 
063606 
045202 
053522 
010000 
002436 
007310 
002530 
002532 
002534 
002536 
002540 
002542 
002544 
002546 
002550 
065626 
063434 
057416 
045326 
040354 
040206 
054042 
057376 
000001 
002660 
014324 
014714 
006007 
047642 
041446 
057772 
053666 
063310 
057670 
057256 


TYPSTR 


057710 


032144 G 


733008 


032242 


035262 


a 


733018 


XRDHDC 


035454 


017366 


SEQ 0138 


———————————— | 


OUTERR MACY11 
DZRLOA. SUP 


XRDHDG 017402 
XREAD 022150 
XREADG 022156 
XSEEK 015624 
XSEEKT 015614 


ABS. 072000 


30(1046) O4%-NOV-77 
11-OCT-77 15:40 


XSEEK1 
XTIME 

XTIMEN 
XTIMST 
XWR ITE 


000 


ERRORS DETECTED: 0 


DSK2: DZRLDA. OSKZ: CZRLDA/EQ: PART2=DZRLDA. SNL. DZRLDA. 
RUN-TIME: 44 49 1 SECONDS 

RUN-TIME RATIO: 1434794215. 1 
CORE USED: 19K (37 PAGES) 
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015630 
066316 G 
067142 
066340 
022110 


Jil 


XWRITT 022100 
XWRIT1 022114 


X$FALS= 000040 


XSOFFS= 000400 
X$TRUE= 000020 
X1X1_ = 072000 
SBREG 045472 
SENDAD 067562 G 


PT1,D02RLDA. P11,D02RLOA. PT2,OZRLOA. SUP 


SEQ 0139 


$SAV2 070626 G 

$SAV3 070642 G 

$SAV4 070660 G 

$SAVS 070700 G 
= 072000 


